Return an immortal from attributes::_warn_reserved (a private

function). (saves creating a new IV)

p4raw-id: //depot/perl@23736

1 files changed, 1 insertions, 4 deletions

diff --git a/xsutils.c b/xsutils.c
index f8527a283c..39bf560756 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);
 }