avoid some test-time warnings
authorZefram <zefram@fysh.org>
Wed, 16 Nov 2011 21:31:41 +0000 (21:31 +0000)
committerZefram <zefram@fysh.org>
Wed, 16 Nov 2011 21:31:41 +0000 (21:31 +0000)
dist/ExtUtils-Manifest/t/Manifest.t
dist/ExtUtils-ParseXS/t/XSMore.xs
ext/XS-APItest/t/gv_fetchmeth_autoload.t

index 8d2ff8b..96c5b50 100644 (file)
@@ -262,6 +262,7 @@ is( $files->{foobar}, '',    '          preserved old entries' );
                 pass "normalization success with i=$i";
             } else {
                 require Data::Dumper;
+                no warnings "once";
                 local $Data::Dumper::Useqq = 1;
                 local $Data::Dumper::Terse = 1;
                 is Data::Dumper::Dumper($maniaddresult), Data::Dumper::Dumper($prev_maniaddresult), "eol normalization failed with i=$i";
index 2a0a87a..322fc1d 100644 (file)
@@ -120,6 +120,8 @@ typemaptest3(foo, bar, baz)
     MyType5 bar
     MyType5 baz
   CODE:
+    PERL_UNUSED_VAR(bar);
+    PERL_UNUSED_VAR(baz);
     RETVAL = foo;
   OUTPUT:
     RETVAL
index a24c000..b24bfb1 100644 (file)
@@ -65,6 +65,7 @@ ok !XS::APItest::gv_fetchmeth_autoload_type(\%::, "method\0not quite!", 3, $leve
         ::ok !XS::APItest::gv_fetchmeth_autoload_type(\%main::, "method", $type, $level, 0);
         
         {
+            no warnings 'once';
             local *AUTOLOAD = sub { 1 };
             ::is XS::APItest::gv_fetchmeth_autoload_type(\%main::, "method$type", $type, $level, 0), "*main::method$type", "Autoloading UTF-8 subs works";
         }