diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-04 08:26:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-04 08:26:19 +0000 |
| commit | 1542b985032ae6eca76d4ca4c21d2269e21544f1 (patch) | |
| tree | 29942426b17d0905958ad71fd1da85cb571fe4fb /gv.c | |
| parent | da9274502cf796d52a9875e4c9f650b53901ad73 (diff) | |
| parent | d20626d86bf3d55ba658adbc2678de4c519cbc6c (diff) | |
| download | perl-1542b985032ae6eca76d4ca4c21d2269e21544f1.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4513
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -105,8 +105,8 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) Newz(602, gp, 1, GP); GvGP(gv) = gp_ref(gp); GvSV(gv) = NEWSV(72,0); - GvLINE(gv) = PL_curcop->cop_line; - GvFILE(gv) = PL_curcop->cop_filegv ? SvPVX(GvSV(PL_curcop->cop_filegv)) : ""; + GvLINE(gv) = CopLINE(PL_curcop); + GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : ""; GvCVGEN(gv) = 0; GvEGV(gv) = gv; sv_magic((SV*)gv, (SV*)gv, '*', name, len); @@ -899,9 +899,9 @@ Perl_gv_check(pTHX_ HV *stash) gv = (GV*)HeVAL(entry); if (SvTYPE(gv) != SVt_PVGV || GvMULTI(gv)) continue; - PL_curcop->cop_line = GvLINE(gv); + CopLINE_set(PL_curcop, GvLINE(gv)); filegv = GvFILEGV(gv); /* XXX could be made faster */ - PL_curcop->cop_filegv = filegv; + CopFILEGV_set(PL_curcop, filegv); if (filegv && GvMULTI(filegv)) /* Filename began with slash */ continue; Perl_warner(aTHX_ WARN_ONCE, |