diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-04-30 13:06:28 -0400 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-05-02 08:43:08 +0000 |
| commit | 47f9f84cc98b8a5779f47ca8a12283098d2816e4 (patch) | |
| tree | b39025ba2f6fc9f549813cffe63cd2b380bddcf2 /lib/Carp | |
| parent | 4964fccb418626bbfc96e446747345a4f3e41961 (diff) | |
| download | perl-47f9f84cc98b8a5779f47ca8a12283098d2816e4.tar.gz | |
Remove ext/Thread
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510704301406t6373912ame78fea5c7a148cf4@mail.gmail.com>
p4raw-id: //depot/perl@31114
Diffstat (limited to 'lib/Carp')
| -rw-r--r-- | lib/Carp/Heavy.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index a293b59a09..15f8188d4e 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -192,8 +192,8 @@ sub ret_backtrace { $i++; my $tid_msg = ''; - if (defined &Thread::tid) { - my $tid = Thread->self->tid; + if (defined &threads::tid) { + my $tid = threads->tid; $tid_msg = " thread $tid" if $tid; } @@ -213,8 +213,8 @@ sub ret_summary { $i++; my $tid_msg = ''; - if (defined &Thread::tid) { - my $tid = Thread->self->tid; + if (defined &threads::tid) { + my $tid = threads->tid; $tid_msg = " thread $tid" if $tid; } |