Change 20562 by [EMAIL PROTECTED] on 2003/08/08 11:55:24
Retract #20479 (was part of #20493).
Affected files ...
... //depot/maint-5.8/perl/scope.c#10 edit
... //depot/maint-5.8/perl/t/op/local.t#4 edit
Differences ...
==== //depot/maint-5.8/perl/scope.c#10 (text) ====
Index: perl/scope.c
--- perl/scope.c#9~20493~ Tue Aug 5 01:43:49 2003
+++ perl/scope.c Fri Aug 8 04:55:24 2003
@@ -214,7 +214,7 @@
PL_tainted = oldtainted;
}
SvMAGIC(sv) = SvMAGIC(osv);
- SvFLAGS(sv) |= SvMAGICAL(osv) | SvREADONLY(osv);
+ SvFLAGS(sv) |= SvMAGICAL(osv);
/* XXX SvMAGIC() is *shared* between osv and sv. This can
* lead to coredumps when both SVs are destroyed without one
* of their SvMAGIC() slots being NULLed. */
==== //depot/maint-5.8/perl/t/op/local.t#4 (xtext) ====
Index: perl/t/op/local.t
--- perl/t/op/local.t#3~20493~ Tue Aug 5 01:43:49 2003
+++ perl/t/op/local.t Fri Aug 8 04:55:24 2003
@@ -1,6 +1,6 @@
#!./perl
-print "1..78\n";
+print "1..75\n";
sub foo {
local($a, $b) = @_;
@@ -257,17 +257,3 @@
print "not " if exists $h{'z'}; print "ok 73\n";
print "not " if exists $ENV{_A_}; print "ok 74\n";
print "not " if exists $ENV{_B_}; print "ok 75\n";
-
-# local() and readonly magic variables
-
-eval { local $1 = 1 };
-print "not " if $@ !~ /Modification of a read-only value attempted/;
-print "ok 76\n";
-
-eval { for ($1) { local $_ = 1 } };
-print "not " if $@ !~ /Modification of a read-only value attempted/;
-print "ok 77\n";
-
-eval { for ($1) { local $_ = 1 } };
-print "not " if $@;
-print "ok 78\n";
End of Patch.
