From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 21 Jan 2008 07:11:41 +0000 (+0000)
Subject: Change the hasargs return value from caller from IV to bool, as it's
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf38a47800bc41fab1987dd3c1dc9b5405a51b66;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {