diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-19 04:29:34 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-19 04:29:34 +0000 |
commit | e8e6f333fb70a1ac62ee87237d37336cd6767150 (patch) | |
tree | 93317395fd445b9c7f669df43d6ec34908d8c550 /util.c | |
parent | ae96c66582f94c994a6ccb610abacedc1e3c40d6 (diff) | |
download | perl-e8e6f333fb70a1ac62ee87237d37336cd6767150.tar.gz |
don't display tid from main thread (or testsuite breaks)
p4raw-id: //depot/perl@3702
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1417,7 +1417,8 @@ Perl_mess(pTHX_ const char *pat, va_list *args) (long)IoLINES(GvIOp(PL_last_in_gv))); } #ifdef USE_THREADS - sv_catpvf(sv, " thread %ld", thr->tid); + if (thr->tid) + Perl_sv_catpvf(aTHX_ sv, " thread %ld", thr->tid); #endif sv_catpv(sv, PL_dirty ? dgd : ".\n"); } |