diff options
| author | Wolfgang Laun <Wolfgang.Laun@alcatel.at> | 2000-11-15 09:56:32 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-16 23:27:34 +0000 |
| commit | 4d0df7762163cf976def4f71d5c436661a505e80 (patch) | |
| tree | 82fa0d2475fa9304101a4d654a179da23e72be1a /lib/Carp/Heavy.pm | |
| parent | 7817ba4dfeb754838a0da8f159127895c2dcf4fc (diff) | |
| download | perl-4d0df7762163cf976def4f71d5c436661a505e80.tar.gz | |
Re: Bug in Carp::Heavy/5.6.0?
Message-ID: <3A1241B0.64477E00@alcatel.at>
p4raw-id: //depot/perl@7718
Diffstat (limited to 'lib/Carp/Heavy.pm')
| -rw-r--r-- | lib/Carp/Heavy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index 8cfdcb48f0..4d12bd7910 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -229,7 +229,7 @@ CALLER: $msg = "$error at $file line $line"; if (defined &Thread::tid) { my $tid = Thread->self->tid; - $mess .= " thread $tid" if $tid; + $msg .= " thread $tid" if $tid; } $msg .= "\n"; return $msg; |