This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
At least a temporary fix for the mysterious scope core dumps
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 4 Sep 2001 19:45:59 +0000 (19:45 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 4 Sep 2001 19:45:59 +0000 (19:45 +0000)
in Tru64 from Graham.

p4raw-id: //depot/perl@11871

ext/List/Util/Util.xs

index 07d703f..b53d59e 100644 (file)
@@ -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;