Change 13406 by jhi@alpha on 2001/12/01 16:31:02
Subject: Fix for Exporter error reporting behaviour
From: "Benjamin J. Tilly" <[EMAIL PROTECTED]>
Date: Sat, 1 Dec 2001 06:34:48 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Exporter.pm#19 edit
.... //depot/perl/lib/Exporter/Heavy.pm#12 edit
Differences ...
==== //depot/perl/lib/Exporter.pm#19 (text) ====
Index: perl/lib/Exporter.pm
--- perl/lib/Exporter.pm.~1~ Sat Dec 1 09:45:06 2001
+++ perl/lib/Exporter.pm Sat Dec 1 09:45:06 2001
@@ -8,7 +8,8 @@
our $Debug = 0;
our $ExportLevel = 0;
our $Verbose ||= 0;
-our $VERSION = '5.563';
+our $VERSION = '5.564';
+$Carp::Internal{Exporter} = 1;
sub export_to_level {
require Exporter::Heavy;
@@ -56,7 +57,7 @@
return export $pkg, $callpkg, ($args ? @_ : ());
}
local $SIG{__WARN__} =
- sub {require Carp; local $Carp::CarpLevel = 1; &Carp::carp};
+ sub {require Carp; &Carp::carp};
foreach my $sym (@_) {
# shortcut for the common case of no type character
*{"$callpkg\::$sym"} = \&{"$pkg\::$sym"};
==== //depot/perl/lib/Exporter/Heavy.pm#12 (text) ====
Index: perl/lib/Exporter/Heavy.pm
--- perl/lib/Exporter/Heavy.pm.~1~ Sat Dec 1 09:45:06 2001
+++ perl/lib/Exporter/Heavy.pm Sat Dec 1 09:45:06 2001
@@ -5,7 +5,7 @@
# On one line so MakeMaker will see it.
require Exporter; our $VERSION = $Exporter::VERSION;
-
+$Carp::Internal{"Exporter::Heavy"} = 1;
our $Verbose;
=head1 NAME
End of Patch.
