This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence compiler warning; ref change 26598
authorGisle Aas <gisle@activestate.com>
Wed, 4 Jan 2006 10:25:42 +0000 (10:25 +0000)
committerGisle Aas <gisle@activestate.com>
Wed, 4 Jan 2006 10:25:42 +0000 (10:25 +0000)
p4raw-id: //depot/perl@26633

op.c

diff --git a/op.c b/op.c
index 8f8cb02..54d8f6d 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3504,7 +3504,7 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
     CopSTASH_set(cop, PL_curstash);
 
     if (PERLDB_LINE && PL_curstash != PL_debstash) {
-       SV * const * const svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE);
+       SV * const * const svp = av_fetch(CopFILEAVx(PL_curcop), (I32)CopLINE(cop), FALSE);
        if (svp && *svp != &PL_sv_undef ) {
            (void)SvIOK_on(*svp);
            SvIV_set(*svp, PTR2IV(cop));