diff options
| author | Ben Tilly <ben_tilly@operamail.com> | 2001-12-01 01:34:48 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-01 16:31:02 +0000 |
| commit | bb2cbcd1ec679f28ec7f1a4f685707a368d32502 (patch) | |
| tree | 328679f85510b65bb2e77996772857e1a34269c2 /lib/Exporter.pm | |
| parent | 24c435326ff7474b83b7249c5c50531eeeffe72f (diff) | |
| download | perl-bb2cbcd1ec679f28ec7f1a4f685707a368d32502.tar.gz | |
Fix for Exporter error reporting behaviour
Message-ID: <3C0D1B9A@operamail.com>
p4raw-id: //depot/perl@13406
Diffstat (limited to 'lib/Exporter.pm')
| -rw-r--r-- | lib/Exporter.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Exporter.pm b/lib/Exporter.pm index ce89c59435..9088a31482 100644 --- a/lib/Exporter.pm +++ b/lib/Exporter.pm @@ -8,7 +8,8 @@ no strict 'refs'; 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 @@ sub import { 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"}; |