Opening dirhandle DIR also as a file needs no warnings 'deprecated';

[p5sagit/p5-mst-13.2.git] / t / op / undef.t

diff --git a/t/op/undef.t b/t/op/undef.t
index 8bfecab..7afaf9c 100644 (file)
--- a/t/op/undef.t
+++ b/t/op/undef.t
@@ -72,6 +72,7 @@ like $@, qr/^Modification of a read/;
 {
     require Tie::Hash;
     tie my %foo, 'Tie::StdHash';
+    no warnings 'deprecated';
     ok defined %foo;
     %foo = ( a => 1 );
     ok defined %foo;
@@ -80,6 +81,7 @@ like $@, qr/^Modification of a read/;
 {
     require Tie::Array;
     tie my @foo, 'Tie::StdArray';
+    no warnings 'deprecated';
     ok defined @foo;
     @foo = ( a => 1 );
     ok defined @foo;