diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-03-09 20:49:47 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-03-09 20:49:47 +0000 |
| commit | d6235ae53ad26d2cd21f56b7a4f0be5387088440 (patch) | |
| tree | 33db67bac81eadb02444fe1e7338a02ec16bcdae | |
| parent | 4882b61547d81040dca6c16217df7f87642b227a (diff) | |
| download | perl-d6235ae53ad26d2cd21f56b7a4f0be5387088440.tar.gz | |
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
| -rw-r--r-- | lib/Exporter.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Exporter.t b/lib/Exporter.t index 1639cc11f3..27b1e67653 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 ); |