[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 (file)
--- 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") };