From: Wolfgang Laun <Wolfgang.Laun@alcatel.at>
Date: Wed, 15 Nov 2000 08:56:32 +0000 (+0100)
Subject: Re: Bug in Carp::Heavy/5.6.0?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4d0df7762163cf976def4f71d5c436661a505e80;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;