From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Sep 2001 19:45:59 +0000 (+0000)
Subject: At least a temporary fix for the mysterious scope core dumps
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=690cde848c9d78733fbc1170f01d7907ea491682;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;