At least a temporary fix for the mysterious scope core dumps

in Tru64 from Graham.

p4raw-id: //depot/perl@11871

diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index 07d703f..b53d59e 100644 (file)
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -197,7 +197,7 @@ CODE:
     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 @@ CODE:
     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;