diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-01-10 22:49:31 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-01-10 22:49:31 +0100 |
| commit | 18c097a2907a959ca0bf9f988f0c88c0bd9db13a (patch) | |
| tree | 317545e9d15f8abf944a8fd29775f72c587a6720 /lib | |
| parent | 6761b0348138d8cbf8d3033964cd15c2e3c0fd04 (diff) | |
| download | perl-18c097a2907a959ca0bf9f988f0c88c0bd9db13a.tar.gz | |
Typo fix : caller:: isn't caller
(Noticed by Aaron Crane)
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Carp.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Carp.pm b/lib/Carp.pm index be27c6aea4..b477ca894c 100644 --- a/lib/Carp.pm +++ b/lib/Carp.pm @@ -1,6 +1,6 @@ package Carp; -our $VERSION = '1.14'; +our $VERSION = '1.15'; our $MaxEvalLen = 0; our $Verbose = 0; @@ -70,7 +70,7 @@ sub caller_info { my %call_info; @call_info{ qw(pack file line sub has_args wantarray evaltext is_require) - } = defined (*CORE::GLOBAL::caller::{CODE}) ? *CORE::GLOBAL::{caller}->($i) : caller($i); + } = defined (*CORE::GLOBAL::caller{CODE}) ? *CORE::GLOBAL::caller{CODE}->($i) : caller($i); unless (defined $call_info{pack}) { return (); |