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 (file)
--- 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 (file)
--- 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;