From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 25 Jun 2001 14:04:07 +0000 (+0000)
Subject: Missed from #10925.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e0d088d0e81f017f3713823b3f066f49ef286b80;p=p5sagit%2Fp5-mst-13.2.git

Missed from #10925.

p4raw-id: //depot/perl@10926
---

diff --git a/gv.c b/gv.c
index 71ec31d..89b15e1 100644
--- 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;