Change 30054 by [EMAIL PROTECTED] on 2007/01/28 23:29:04
Change 28489 giveth, and change 28488 taketh away. (Although for most
people time flows forwards, so they won't see it this way). But the
problem is that 28488 taketh away the {}, and whilst 28489 puteth them
back, 28489 was about state variables, so I'm not merging it.
Hence this need for a manual fixup. (And something else I'd like to
fixup is gcc, for not having a C89-death-or-glory flag)
Affected files ...
... //depot/maint-5.8/perl/op.c#190 edit
Differences ...
==== //depot/maint-5.8/perl/op.c#190 (text) ====
Index: perl/op.c
--- perl/op.c#189~30051~ 2007-01-28 13:56:48.000000000 -0800
+++ perl/op.c 2007-01-28 15:29:04.000000000 -0800
@@ -3410,7 +3410,7 @@
* to clear the flag, then to test and set it. To find somewhere
* to store these values, evil chicanery is done with SvCUR().
*/
-
+ {
OP *lastop = o;
PL_generation++;
for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
@@ -3464,6 +3464,7 @@
}
if (curop != o)
o->op_private |= OPpASSIGN_COMMON;
+ }
if (right && right->op_type == OP_SPLIT) {
OP* tmpop = ((LISTOP*)right)->op_first;
if (tmpop && (tmpop->op_type == OP_PUSHRE)) {
End of Patch.
