X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=3847da6db42e4c67d35a3b91c4aea2d29adec2fd;hb=45977657b0fa2c29b268b817f40e6b295a501d39;hp=47eb5167a256fcf930e61a6ad06ee01fbafc19a6;hpb=f599b64b5d5d221c90b5f40eb5ad167f16c1822c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index 47eb516..3847da6 100644
--- a/doio.c
+++ b/doio.c
@@ -674,10 +674,10 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
                 sv = *av_fetch(PL_fdpid,fd,TRUE);
                 (void)SvUPGRADE(sv, SVt_IV);
                 pid = SvIVX(sv);
-                SvIVX(sv) = 0;
+                SvIV_set(sv, 0);
                 sv = *av_fetch(PL_fdpid,savefd,TRUE);
                 (void)SvUPGRADE(sv, SVt_IV);
-                SvIVX(sv) = pid;
+                SvIV_set(sv, pid);
                 UNLOCK_FDPID_MUTEX;
             }
 #endif