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

[Nicholas Clark]

Change 33019 by [EMAIL PROTECTED] on 2008/01/21 07:11:41

        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.

Affected files ...

... //depot/perl/pp_ctl.c#662 edit

Differences ...

==== //depot/perl/pp_ctl.c#662 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#661~33018~    2008-01-20 14:20:56.000000000 -0800
+++ perl/pp_ctl.c       2008-01-20 23:11:41.000000000 -0800
@@ -1654,11 +1654,11 @@
            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 {
End of Patch.