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

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