diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-05-04 01:34:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-06 13:13:00 +0000 |
| commit | c39e6ab0a7545b7ae425e21f045aa689291b268e (patch) | |
| tree | a66b15f7fe920bd9109a3291f8a347a43a0d213e /t | |
| parent | 2c74c289a09a24de36af47eb52526438ffa7fdd6 (diff) | |
| download | perl-c39e6ab0a7545b7ae425e21f045aa689291b268e.tar.gz | |
[proposed PATCH] correctly unlocalise exists on tied/%ENV
Message-ID: <20020504003418.F22026@fdgroup.com>
p4raw-id: //depot/perl@16431
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/local.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/local.t b/t/op/local.t index 9f977b2cd4..d23b200022 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -130,6 +130,7 @@ print +(!defined $a[0]) ? "" : "not ", "ok 41\n"; 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]} = (); } } |