Change the hasargs return value from caller from IV to bool, as it's

actually only a boolean, and sv_yes/sv_no are cheaper to "create".
The documentation says 'C<$hasargs> is true if ...' so this is fine.

p4raw-id: //depot/perl@33019

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index c1f115d965..25cd02f2cb 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1654,11 +1654,11 @@ PP(pp_caller)
 	    SV * const sv = newSV(0);
 	    gv_efullname3(sv, cvgv, NULL);
 	    mPUSHs(sv);
-	    mPUSHi((I32)CxHASARGS(cx));
+	    PUSHs(boolSV(CxHASARGS(cx)));
 	}
 	else {
 	    PUSHs(newSVpvs_flags("(unknown)", SVs_TEMP));
-	    mPUSHi((I32)CxHASARGS(cx));
+	    PUSHs(boolSV(CxHASARGS(cx)));
 	}
     }
     else {