This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Bug in Carp::Heavy/5.6.0?
authorWolfgang Laun <Wolfgang.Laun@alcatel.at>
Wed, 15 Nov 2000 08:56:32 +0000 (09:56 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 16 Nov 2000 23:27:34 +0000 (23:27 +0000)
Message-ID: <3A1241B0.64477E00@alcatel.at>

p4raw-id: //depot/perl@7718

lib/Carp/Heavy.pm

index 8cfdcb4..4d12bd7 100644 (file)
@@ -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;