display thread id in diagnostics (suggested by Dan Sugalski)

p4raw-id: //depot/perl@3696

1 files changed, 3 insertions, 0 deletions

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;