diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-25 14:04:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-25 14:04:07 +0000 |
| commit | e0d088d0e81f017f3713823b3f066f49ef286b80 (patch) | |
| tree | 631165eaa7278f660e81103a4d4ca8f2cdf27583 /gv.c | |
| parent | a636914a235cd8650ed6efcb07e302c0332fa638 (diff) | |
| download | perl-e0d088d0e81f017f3713823b3f066f49ef286b80.tar.gz | |
Missed from #10925.
p4raw-id: //depot/perl@10926
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |