avoid some test-time warnings

diff --git a/dist/ExtUtils-Manifest/t/Manifest.t b/dist/ExtUtils-Manifest/t/Manifest.t
index 8d2ff8b..96c5b50 100644 (file)
--- a/dist/ExtUtils-Manifest/t/Manifest.t
+++ b/dist/ExtUtils-Manifest/t/Manifest.t
@@ -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";

diff --git a/dist/ExtUtils-ParseXS/t/XSMore.xs b/dist/ExtUtils-ParseXS/t/XSMore.xs
index 2a0a87a..322fc1d 100644 (file)
--- a/dist/ExtUtils-ParseXS/t/XSMore.xs
+++ b/dist/ExtUtils-ParseXS/t/XSMore.xs
@@ -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

diff --git a/ext/XS-APItest/t/gv_fetchmeth_autoload.t b/ext/XS-APItest/t/gv_fetchmeth_autoload.t
index a24c000..b24bfb1 100644 (file)
--- a/ext/XS-APItest/t/gv_fetchmeth_autoload.t
+++ b/ext/XS-APItest/t/gv_fetchmeth_autoload.t
@@ -65,6 +65,7 @@ ok !XS::APItest::gv_fetchmeth_autoload_type(\%::, "method\0not quite!", 3, $leve
         ::ok !XS::APItest::gv_fetchmeth_autoload_type(\%ｍａｉｎ::, "method", $type, $level, 0);
         
         {
+            no warnings 'once';
             local *AUTOLOAD = sub { 1 };
             ::is XS::APItest::gv_fetchmeth_autoload_type(\%ｍａｉｎ::, "ｍｅｔｈｏｄ$type", $type, $level, 0), "*ｍａｉｎ::ｍｅｔｈｏｄ$type", "Autoloading UTF-8 subs works";
         }