From: Kevin Ryde <unknown>
Date: Sat, 1 Nov 2008 16:27:09 +0000 (-0700)
Subject: [perl #60300] doc Carp $Carp::Internal{__PACKAGE__} example
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a6a7022ea46998eae15a751beb5b65986a938f3;p=p5sagit%2Fp5-mst-13.2.git

[perl #60300] doc Carp $Carp::Internal{__PACKAGE__} example
From: Kevin Ryde (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-29762-1225582029-1073.60300-75-0@perl.org>

p4raw-id: //depot/perl@34703
---

diff --git a/lib/Carp.pm b/lib/Carp.pm
index 7319a30..fe24c07 100644
--- a/lib/Carp.pm
+++ b/lib/Carp.pm
@@ -1,6 +1,6 @@
 package Carp;
 
-our $VERSION = '1.09';
+our $VERSION = '1.10';
 # this file is an utra-lightweight stub. The first time a function is
 # called, Carp::Heavy is loaded, and the real short/longmessmess_jmp
 # subs are installed
@@ -187,7 +187,7 @@ This says what packages are internal to Perl.  C<Carp> will never
 report an error as being from a line in a package that is internal to
 Perl.  For example:
 
-    $Carp::Internal{ __PACKAGE__ }++;
+    $Carp::Internal{ (__PACKAGE__) }++;
     # time passes...
     sub foo { ... or confess("whatever") };