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