defined @array and defined %hash need no warnings 'deprecated';
Nicholas Clark [Tue, 13 Oct 2009 14:33:16 +0000 (15:33 +0100)]
t/op/undef.t

index 8bfecab..7afaf9c 100644 (file)
@@ -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;