1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 8432a15871..2fb4b17bcd 100644
--- 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 {