From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 6 Oct 2005 19:23:59 +0000 (+0000)
Subject: Convert lvalue usage of SvNVX() and SvIVX() to SvNV_set() and
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e701d2b387367c0635d086a48c2c127105ac337;p=p5sagit%2Fp5-mst-13.2.git

Convert lvalue usage of SvNVX() and SvIVX() to SvNV_set() and
SvIV_set().  Otherwise, compiling with -DPERL_DEBUG_COW fails.

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

diff --git a/ext/Compress/Zlib/Zlib.xs b/ext/Compress/Zlib/Zlib.xs
index 3fce623..5d64890 100644
--- a/ext/Compress/Zlib/Zlib.xs
+++ b/ext/Compress/Zlib/Zlib.xs
@@ -722,7 +722,7 @@ CODE:
     SvUPGRADE(ST(0),SVt_PVNV);
     sv_setpvn(ST(0),ptr,len);
     if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) {
-        SvNVX(ST(0)) = SvNV(num);
+        SvNV_set(ST(0), SvNV(num));
         SvNOK_on(ST(0));
     }
 #ifdef SVf_IVisUVXXXX
@@ -733,7 +733,7 @@ CODE:
     }
 #endif
     else {
-        SvIVX(ST(0)) = SvIV(num);
+        SvIV_set(ST(0), SvIV(num));
         SvIOK_on(ST(0));
     }
     XSRETURN(1);