From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 3 Jan 2005 21:17:28 +0000 (+0000)
Subject: Return an immortal from attributes::_warn_reserved (a private
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0006dff7adcb1858f940afa807baf82db5c4b082;p=p5sagit%2Fp5-mst-13.2.git

Return an immortal from attributes::_warn_reserved (a private
function). (saves creating a new IV)

p4raw-id: //depot/perl@23736
---

diff --git a/xsutils.c b/xsutils.c
index f8527a2..39bf560 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -315,7 +315,6 @@ usage:
 XS(XS_attributes__warn_reserved)
 {
     dXSARGS;
-    dXSTARG;
 
     if (items != 0) {
 	Perl_croak(aTHX_
@@ -323,9 +322,7 @@ XS(XS_attributes__warn_reserved)
     }
 
     EXTEND(SP,1);
-    ST(0) = TARG;
-    sv_setiv(TARG, ckWARN(WARN_RESERVED) != 0);
-    SvSETMAGIC(TARG);
+    ST(0) = boolSV(ckWARN(WARN_RESERVED));
 
     XSRETURN(1);
 }