This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
GvFILE() cannot be a pointer to the memory owned by the COP, because
[perl5.git] / ext / ByteLoader / byterun.c
index 77568ba..3738ad5 100644 (file)
@@ -658,7 +658,7 @@ byterun(pTHX_ register struct byteloader_state *bstate)
            {
                pvindex arg;
                BGET_pvindex(arg);
-               GvFILE(bstate->bs_sv) = arg;
+               BSET_gp_file(bstate->bs_sv, arg);
                break;
            }
          case INSN_GP_IO:              /* 86 */