Patch applying of #3499 had gone awry.

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 09da668..cbe1d22 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1315,9 +1315,9 @@ perl_call_sv(SV *sv, I32 flags)
            PUSHEVAL(cx, 0, 0);
            PL_eval_root = PL_op;             /* Only needed so that goto works right. */
            
-           PL_in_eval = 1;
+           PL_in_eval = EVAL_INEVAL;
            if (flags & G_KEEPERR)
-               PL_in_eval |= 4;
+               PL_in_eval |= EVAL_KEEPERR;
            else
                sv_setpv(ERRSV,"");
        }