X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExporter.pm;h=9088a31482555bf407d3d19bad930bbe7c8b5c6d;hb=0d3cd356f86a61e8bd16da8cde1ac079d7e66290;hp=ce89c59435999702bd300dff410695cb1e50d2eb;hpb=8b4c0206050ea137d8e8f896aabe9e7179812197;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Exporter.pm b/lib/Exporter.pm
index ce89c59..9088a31 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"};