Change 11871 by jhi@alpha on 2001/09/04 19:45:59
At least a temporary fix for the mysterious scope core dumps
in Tru64 from Graham.
Affected files ...
... //depot/perl/ext/List/Util/Util.xs#8 edit
Differences ...
==== //depot/perl/ext/List/Util/Util.xs#8 (text) ====
Index: perl/ext/List/Util/Util.xs
--- perl/ext/List/Util/Util.xs.~1~ Tue Sep 4 14:00:05 2001
+++ perl/ext/List/Util/Util.xs Tue Sep 4 14:00:05 2001
@@ -197,7 +197,7 @@
SAVESPTR(PL_op);
ret = ST(1);
CATCH_SET(TRUE);
- PUSHBLOCK(cx, CXt_SUB, SP);
+ PUSHBLOCK(cx, CXt_NULL, SP);
for(index = 2 ; index < items ; index++) {
GvSV(agv) = ret;
GvSV(bgv) = ST(index);
@@ -240,7 +240,7 @@
SAVETMPS;
SAVESPTR(PL_op);
CATCH_SET(TRUE);
- PUSHBLOCK(cx, CXt_SUB, SP);
+ PUSHBLOCK(cx, CXt_NULL, SP);
for(index = 1 ; index < items ; index++) {
GvSV(PL_defgv) = ST(index);
PL_op = reducecop;
End of Patch.
