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 /pp_sys.c | |
| parent | da9274502cf796d52a9875e4c9f650b53901ad73 (diff) | |
| parent | d20626d86bf3d55ba658adbc2678de4c519cbc6c (diff) | |
| download | perl-1542b985032ae6eca76d4ca4c21d2269e21544f1.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4513
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -475,7 +475,7 @@ PP(pp_die) HV *stash = SvSTASH(SvRV(error)); GV *gv = gv_fetchmethod(stash, "PROPAGATE"); if (gv) { - SV *file = sv_2mortal(newSVsv(GvSV(PL_curcop->cop_filegv))); + SV *file = sv_2mortal(newSVsv(CopFILESV(PL_curcop))); SV *line = sv_2mortal(newSViv(PL_curcop->cop_line)); EXTEND(SP, 3); PUSHMARK(SP); |