X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExporter.t;h=27b1e67653003c095c772fbbb9ac0b3278cc07ce;hb=c1d8f74eb4326dca73e3ac3f73812dff8489ecf7;hp=1639cc11f3fc5caf73c3ab151698b2e32b56c73e;hpb=452617c3f7a5f3708b2a912420c39479d85cb7e5;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Exporter.t b/lib/Exporter.t
index 1639cc1..27b1e67 100644
--- a/lib/Exporter.t
+++ b/lib/Exporter.t
@@ -171,7 +171,7 @@ eval { Yet::More::Testing->require_version(10); 1 };
 
 my $warnings;
 BEGIN {
-    $SIG{__WARN__} = sub { $warnings = join '', @_ };
+    local $SIG{__WARN__} = sub { $warnings = join '', @_ };
     package Testing::Unused::Vars;
     @ISA = qw(Exporter);
     @EXPORT = qw(this $TODO that);
@@ -206,7 +206,6 @@ package The::Import;
 
 use Exporter 'import';
 
-eval { import() };
 ::ok(\&import == \&Exporter::import, "imported the import routine");
 
 @EXPORT = qw( wibble );