Missed from #10925.
Jarkko Hietaniemi [Mon, 25 Jun 2001 14:04:07 +0000 (14:04 +0000)]
p4raw-id: //depot/perl@10926

gv.c

diff --git a/gv.c b/gv.c
index 71ec31d..89b15e1 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -126,7 +126,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 
        PL_sub_generation++;
        CvGV(GvCV(gv)) = gv;
-       CvFILE(GvCV(gv)) = CopFILE(PL_curcop);
+       CvFILE_set_from_cop(GvCV(gv), PL_curcop);
        CvSTASH(GvCV(gv)) = PL_curstash;
 #ifdef USE_THREADS
        CvOWNER(GvCV(gv)) = 0;