From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Sun, 10 Jan 2010 21:49:31 +0000 (+0100)
Subject: Typo fix : caller:: isn't caller
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18c097a2907a959ca0bf9f988f0c88c0bd9db13a;p=p5sagit%2Fp5-mst-13.2.git

Typo fix : caller:: isn't caller

(Noticed by Aaron Crane)
---

diff --git a/lib/Carp.pm b/lib/Carp.pm
index be27c6a..b477ca8 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 ();