From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 18 Apr 2005 14:15:52 +0000 (+0000)
Subject: Two more uses of lvalue SvIVX()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6f787ca70fe8281557cb1a6f45d147f91cb88bb;p=p5sagit%2Fp5-mst-13.2.git

Two more uses of lvalue SvIVX()

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

diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index f110147..d2f4242 100644
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -242,7 +242,7 @@ byterun(pTHX_ register struct byteloader_state *bstate)
 	    {
 		IV arg;
 		BGET_IV(arg);
-		SvIVX(bstate->bs_sv) = arg;
+		SvIV_set(bstate->bs_sv, arg);
 		break;
 	    }
 	  case INSN_XNV:		/* 26 */
diff --git a/lib/ExtUtils/t/Constant.t b/lib/ExtUtils/t/Constant.t
index 4a1657c..0ef797a 100644
--- a/lib/ExtUtils/t/Constant.t
+++ b/lib/ExtUtils/t/Constant.t
@@ -508,7 +508,7 @@ EOT
                {name=>"RFC1149", type=>"SV", value=>"sv_2mortal(temp_sv)",
                 pre=>"SV *temp_sv = newSVpv(RFC1149, 0); "
                 . "(void) SvUPGRADE(temp_sv,SVt_PVIV); SvIOK_on(temp_sv); "
-                . "SvIVX(temp_sv) = 1149;"},
+                . "SvIV_set(temp_sv, 1149);"},
               );
 
   push @items, $_ foreach keys %compass;