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 | d57a439ead83ff1b86d39c468966bc07b17710d1 (patch) | |
| tree | 631165eaa7278f660e81103a4d4ca8f2cdf27583 /gv.c | |
| parent | cec97d8fa5cb632d8c2b2744ed6081ee21bcf0fa (diff) | |
| download | perl-d57a439ead83ff1b86d39c468966bc07b17710d1.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; |