package Carp;
+
+=head1 NAME
+
+Carp::Heavy - Carp guts
+
+=head1 SYNOPIS
+
+(internal use only)
+
+=head1 DESCRIPTION
+
+No user-serviceable parts inside.
+
+=cut
+
# This package is heavily used. Be small. Be fast. Be good.
# Comments added by Andy Wardley <abw@kfs.org> 09-Apr-98, based on an
# here's where the error message, $mess, gets constructed
$mess .= "\t$sub " if $error eq "called";
$mess .= "$error at $file line $line";
- if (exists $main::{'Thread::'}) {
+ if (defined &Thread::tid) {
my $tid = Thread->self->tid;
$mess .= " thread $tid" if $tid;
}
# remove them first.
my $msg;
$msg = "$error at $file line $line";
- if (exists $main::{'Thread::'}) {
+ if (defined &Thread::tid) {
my $tid = Thread->self->tid;
$mess .= " thread $tid" if $tid;
}