diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-06-22 21:42:54 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-06-22 21:42:54 +0000 |
| commit | 0cbee0a449cc4e11ef8db851c20b026c8f9ff45e (patch) | |
| tree | b8f64d28537d653564df5df9d38f0c44680e8a51 /t/op/local.t | |
| parent | 666e7e7967a0bc59b1f44ec2961661c439aad50c (diff) | |
| download | perl-0cbee0a449cc4e11ef8db851c20b026c8f9ff45e.tar.gz | |
handle magic in local correctly
the local SV now gets a copy of any container magic, and no value
magic; in the past the whole magic chain was either shared or
moved
p4raw-id: //depot/perl@24942
Diffstat (limited to 't/op/local.t')
| -rwxr-xr-x | t/op/local.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t index 28613e7a13..00296d9856 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -268,8 +268,9 @@ eval { for ($1) { local $_ = 1 } }; print "not " if $@ !~ /Modification of a read-only value attempted/; print "ok 77\n"; +# make sure $1 is still read-only eval { for ($1) { local $_ = 1 } }; -print "not " if $@; +print "not " if $@ !~ /Modification of a read-only value attempted/; print "ok 78\n"; # The s/// adds 'g' magic to $_, but it should remain non-readonly |