From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 9 Mar 2007 20:49:47 +0000 (+0000)
Subject: Don't swallow up other warnings in Exporter's test. Remove a needless
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6235ae53ad26d2cd21f56b7a4f0be5387088440;p=p5sagit%2Fp5-mst-13.2.git

Don't swallow up other warnings in Exporter's test. Remove a needless
eval that happened to generate 4 warnings.

p4raw-id: //depot/perl@30531
---

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 );