From 9efbc0eb9ef0a7b1489f59143775f10b17cd372d Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 18 Jul 1999 05:11:02 +0000
Subject: display thread id in diagnostics (suggested by Dan Sugalski)

p4raw-id: //depot/perl@3696
---
 util.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'util.c')

diff --git a/util.c b/util.c
index f4857cf04f..6fa8d7f9fe 100644
--- a/util.c
+++ b/util.c
@@ -1416,6 +1416,9 @@ Perl_mess(pTHX_ const char *pat, va_list *args)
 		      line_mode ? "line" : "chunk", 
 		      (long)IoLINES(GvIOp(PL_last_in_gv)));
 	}
+#ifdef USE_THREADS
+	sv_catpvf(sv, " thread %ld", thr->tid);
+#endif
 	sv_catpv(sv, PL_dirty ? dgd : ".\n");
     }
     return sv;
-- 
cgit v1.2.1