This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
autouse.t: suppress warnings
authorFather Chrysostomos <sprout@cpan.org>
Mon, 21 Nov 2011 17:35:20 +0000 (09:35 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 21 Nov 2011 17:35:20 +0000 (09:35 -0800)
dist/autouse/t/autouse.t

index 59374c2..786a8a9 100644 (file)
@@ -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";