up patchlevel &c

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

diff --git a/perl.c b/perl.c
index a08b95e..cbe1d22 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1190,6 +1190,9 @@ perl_get_cv(const char *name, I32 create)
 {
     GV* gv = gv_fetchpv(name, create, SVt_PVCV);
     /* XXX unsafe for threads if eval_owner isn't held */
+    /* XXX this is probably not what they think they're getting.
+     * It has the same effect as "sub name;", i.e. just a forward
+     * declaration! */
     if (create && !GvCVu(gv))
        return newSUB(start_subparse(FALSE, 0),
                      newSVOP(OP_CONST, 0, newSVpv(name,0)),
@@ -1312,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,"");
        }