This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change the hasargs return value from caller from IV to bool, as it's
authorNicholas Clark <nick@ccl4.org>
Mon, 21 Jan 2008 07:11:41 +0000 (07:11 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 21 Jan 2008 07:11:41 +0000 (07:11 +0000)
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

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 {