use vars qw(@ary %ary %hash);
-plan 37;
+plan 40;
ok !defined($a);
ok !defined($ary{'foo'});
ok defined(@ary);
-ok defined(%ary);
+{
+ no warnings 'deprecated';
+ ok defined(%ary);
+}
+ok %ary;
undef @ary;
ok !defined(@ary);
undef %ary;
-ok !defined(%ary);
+{
+ no warnings 'deprecated';
+ ok !defined(%ary);
+}
+ok !%ary;
@ary = (1);
ok defined @ary;
%ary = (1,1);
-ok defined %ary;
+{
+ no warnings 'deprecated';
+ ok defined %ary;
+}
+ok %ary;
sub foo { pass; 1 }
{
require Tie::Hash;
tie my %foo, 'Tie::StdHash';
+ no warnings 'deprecated';
ok defined %foo;
%foo = ( a => 1 );
ok defined %foo;
{
require Tie::Array;
tie my @foo, 'Tie::StdArray';
+ no warnings 'deprecated';
ok defined @foo;
@foo = ( a => 1 );
ok defined @foo;