diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-08 10:19:27 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-08 10:19:27 +0000 |
| commit | 93af7a870f71dbbb13443b4087703de0221add17 (patch) | |
| tree | e767c53d4d4f1783640e5410f94655e45b58b3d0 /t/op/local.t | |
| parent | c116a00cf797ec2e6795338ee18b88d975e760c5 (diff) | |
| parent | 2269e8ecc334a5a77bdb915666547431c0171402 (diff) | |
| download | perl-93af7a870f71dbbb13443b4087703de0221add17.tar.gz | |
Merge maint-5.004 branch (5.004_03) with mainline.
MANIFEST is out of sync.
p4raw-id: //depot/perl@114
Diffstat (limited to 't/op/local.t')
| -rwxr-xr-x | t/op/local.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t index 043201072d..f527c9c9a9 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -2,7 +2,7 @@ # $RCSfile: local.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:04 $ -print "1..20\n"; +print "1..23\n"; sub foo { local($a, $b) = @_; @@ -43,3 +43,12 @@ $d{''} = "ok 18\n"; print &foo2("ok 11\n","ok 12\n"); print $a,@b,@c,%d,$x,$y; + +eval 'local($$e)'; +print +($@ =~ /Can't localize through a reference/) ? "" : "not ", "ok 21\n"; + +eval 'local(@$e)'; +print +($@ =~ /Can't localize through a reference/) ? "" : "not ", "ok 22\n"; + +eval 'local(%$e)'; +print +($@ =~ /Can't localize through a reference/) ? "" : "not ", "ok 23\n"; |