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 /ext/XS-APItest | |
| parent | a1cd495a0ac7aac73dc0aac589e7b27809ffb357 (diff) | |
| download | perl-97bae9c59cd181b3b54061213ec1fdce0ccb30d4.tar.gz | |
avoid some test-time warnings
Diffstat (limited to 'ext/XS-APItest')
| -rw-r--r-- | ext/XS-APItest/t/gv_fetchmeth_autoload.t | 1 |
1 files changed, 1 insertions, 0 deletions
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"; } |