More admonishment that one shouldn't waste one's efforts

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 8432a15..971df59 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1460,7 +1460,7 @@ PP(pp_caller)
        }
        else {
            PUSHs(sv_2mortal(newSVpvn("(unknown)",9)));
-           PUSHs(sv_2mortal(newSViv(0)));
+           PUSHs(sv_2mortal(newSViv((I32)cx->blk_sub.hasargs)));
        }
     }
     else {
@@ -3276,7 +3276,7 @@ PP(pp_entereval)
     STRLEN len;
     OP *ret;
 
-    if (!SvPV(sv,len) || !len)
+    if (!SvPV(sv,len))
        RETPUSHUNDEF;
     TAINT_PROPER("eval");