Re: Bug in Carp::Heavy/5.6.0?

Message-ID: <3A1241B0.64477E00@alcatel.at>

p4raw-id: //depot/perl@7718

diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm
index 8cfdcb4..4d12bd7 100644 (file)
--- 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;