diff options
| author | Zefram <zefram@fysh.org> | 2011-11-16 21:31:41 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2011-11-16 21:31:41 +0000 |
| commit | 97bae9c59cd181b3b54061213ec1fdce0ccb30d4 (patch) | |
| tree | 46e16dbdcfd8496f791588eb1483cce4a3b7fd3e | |
| parent | a1cd495a0ac7aac73dc0aac589e7b27809ffb357 (diff) | |
| download | perl-97bae9c59cd181b3b54061213ec1fdce0ccb30d4.tar.gz | |
avoid some test-time warnings
| -rw-r--r-- | dist/ExtUtils-Manifest/t/Manifest.t | 1 | ||||
| -rw-r--r-- | dist/ExtUtils-ParseXS/t/XSMore.xs | 2 | ||||
| -rw-r--r-- | ext/XS-APItest/t/gv_fetchmeth_autoload.t | 1 |
3 files changed, 4 insertions, 0 deletions
diff --git a/dist/ExtUtils-Manifest/t/Manifest.t b/dist/ExtUtils-Manifest/t/Manifest.t index 8d2ff8b91e..96c5b50412 100644 --- 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 2a0a87a7ec..322fc1de98 100644 --- 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 a24c00083c..b24bfb1e15 100644 --- 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"; } |