Change 34703 by [EMAIL PROTECTED] on 2008/11/03 11:15:20
Subject: [perl #60300] doc Carp $Carp::Internal{__PACKAGE__} example
From: Kevin Ryde (via RT) <[EMAIL PROTECTED]>
Date: Sat, 01 Nov 2008 16:27:09 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Carp.pm#41 edit
Differences ...
==== //depot/perl/lib/Carp.pm#41 (text) ====
Index: perl/lib/Carp.pm
--- perl/lib/Carp.pm#40~34014~ 2008-06-07 09:13:07.000000000 -0700
+++ perl/lib/Carp.pm 2008-11-03 03:15:20.000000000 -0800
@@ -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 @@
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") };
End of Patch.
