diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-02-23 01:03:27 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-25 13:21:19 +0000 |
| commit | 82d039840b913b4eed10833ac05709a5abd02ead (patch) | |
| tree | ae3a2ac26b28aad8ed1101a8116768f0ecc06da3 /t | |
| parent | cc7dbc11d7cd9ed68bb2fbc677f60586de194a05 (diff) | |
| download | perl-82d039840b913b4eed10833ac05709a5abd02ead.tar.gz | |
Re: [perl #21321] local ${"FOO"} does not work
Message-Id: <20030223000327.6f0c11fa.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@18774
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/local.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/local.t b/t/op/local.t index 6da03912e9..1bb8b8ac1b 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -45,10 +45,10 @@ print $a,@b,@c,%d,$x,$y; 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 |