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

diff --git a/pp_ctl.c b/pp_ctl.c
index c1f115d..25cd02f 100644 (file)
--- 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 {