#!./perl
-print "1..71\n";
-
-# XXX known to leak scalars
-$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
+print "1..75\n";
sub foo {
local($a, $b) = @_;
eval 'local($$e)';
print +($@ =~ /Can't localize through a reference/) ? "" : "not ", "ok 21\n";
-eval 'local(@$e)';
+eval '$e = []; local(@$e)';
print +($@ =~ /Can't localize through a reference/) ? "" : "not ", "ok 22\n";
-eval 'local(%$e)';
+eval '$e = {}; local(%$e)';
print +($@ =~ /Can't localize through a reference/) ? "" : "not ", "ok 23\n";
# Array and hash elements
sub TIEHASH { bless {}, $_[0] }
sub STORE { print "# STORE [@_]\n"; $_[0]->{$_[1]} = $_[2] }
sub FETCH { my $v = $_[0]->{$_[1]}; print "# FETCH [@_=$v]\n"; $v }
+ sub EXISTS { print "# EXISTS [@_]\n"; exists $_[0]->{$_[1]}; }
sub DELETE { print "# DELETE [@_]\n"; delete $_[0]->{$_[1]}; }
sub CLEAR { print "# CLEAR [@_]\n"; %{$_[0]} = (); }
}
{
local($h{'a'}) = 'foo';
local($h{'b'}) = $h{'b'};
+ local($h{'y'});
+ local($h{'z'}) = 33;
print +($h{'a'} eq 'foo') ? "" : "not ", "ok 42\n";
print +($h{'b'} == 2) ? "" : "not ", "ok 43\n";
local($h{'c'});
$ENV{_Y_} = 'b';
$ENV{_Z_} = 'c';
{
+ local($ENV{_A_});
+ local($ENV{_B_}) = 'foo';
local($ENV{_X_}) = 'foo';
local($ENV{_Y_}) = $ENV{_Y_};
print +($ENV{_X_} eq 'foo') ? "" : "not ", "ok 54\n";
print "not " if exists $x{c};
print "ok 71\n";
}
+
+# these tests should be physically located after tests 46 and 58,
+# but are here instead to avoid renumbering everything.
+
+# local() should preserve the existenceness of tied hashes and %ENV
+print "not " if exists $h{'y'}; print "ok 72\n";
+print "not " if exists $h{'z'}; print "ok 73\n";
+print "not " if exists $ENV{_A_}; print "ok 74\n";
+print "not " if exists $ENV{_B_}; print "ok 75\n";