Re: [PATCH] Re: [perl #24119] CPAN.pm error in Win32: uses rename() not File::Copy...

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index f675e72..8f8de12 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3444,7 +3444,7 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
        SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE);
         if (svp && *svp != &PL_sv_undef ) {
            (void)SvIOK_on(*svp);
-           SvIVX(*svp) = PTR2IV(cop);
+           SvIV_set(*svp, PTR2IV(cop));
        }
     }