From 690cde848c9d78733fbc1170f01d7907ea491682 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 4 Sep 2001 19:45:59 +0000 Subject: [PATCH] At least a temporary fix for the mysterious scope core dumps in Tru64 from Graham. p4raw-id: //depot/perl@11871 --- ext/List/Util/Util.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.7.4