diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-21 09:35:20 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-21 09:35:20 -0800 |
| commit | f965e9d4a373e14022c83f58715a948ea40a9b4a (patch) | |
| tree | 396e551f017e613287bcbfb186a7d589bb430836 | |
| parent | c70a25495e335e9b4c9d18536444a9fae0266525 (diff) | |
| download | perl-f965e9d4a373e14022c83f58715a948ea40a9b4a.tar.gz | |
autouse.t: suppress warnings
| -rw-r--r-- | dist/autouse/t/autouse.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/autouse/t/autouse.t b/dist/autouse/t/autouse.t index 59374c2057..786a8a988f 100644 --- a/dist/autouse/t/autouse.t +++ b/dist/autouse/t/autouse.t @@ -73,7 +73,7 @@ is( $ret, 'works' ); # redefinition warning. SKIP: { skip "Fails in 5.15.5 and below (perl bug)", 2 if $] < 5.0150051; - use warnings; local $^W = 1; + use warnings; local $^W = 1; no warnings 'once'; my $w; local $SIG{__WARN__} = sub { $w .= shift }; use autouse MyTestModule2 => 'test_function2'; @@ -91,7 +91,7 @@ SKIP: { if $] < 5.0150051 and $] > 5.0099; use Config; skip "no B", 1 unless $Config{extensions} =~ /\bB\b/; - use warnings; local $^W = 1; + use warnings; local $^W = 1; no warnings 'once'; my $w; local $SIG{__WARN__} = sub { $w .= shift }; use autouse B => "sv_undef"; |