diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-01 17:09:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-01 17:09:44 +0000 |
| commit | cc49e20bd7575d1d37e92731860d63daa4d52ecc (patch) | |
| tree | 1b460232564e19658a102bc3cd67d08e537a5c8f /pp_sys.c | |
| parent | 625a29bd030689ee3f060be950e2f2ffc93c94c9 (diff) | |
| download | perl-cc49e20bd7575d1d37e92731860d63daa4d52ecc.tar.gz | |
macros for COP.cop_filegv access
p4raw-id: //depot/perl@4505
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); |