diff options
| author | Chris Nandor <pudge@pobox.com> | 2002-02-08 11:31:41 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-08 20:46:38 +0000 |
| commit | 248c2a4db2b44950ecd8cee3a0e62f31984454b4 (patch) | |
| tree | cb9c782043ed59ba97898c31b2f4d975695555a8 /pp_ctl.c | |
| parent | 6b20d41b70d65d1c7134ef7be518afdd9f0152d7 (diff) | |
| download | perl-248c2a4db2b44950ecd8cee3a0e62f31984454b4.tar.gz | |
CopFILE / MacPerl_MPWFileName
Message-ID: <pudge-10FC3D.16314108022002@onion.valueclick.com>
p4raw-id: //depot/perl@14608
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1414,7 +1414,7 @@ PP(pp_caller) PUSHs(&PL_sv_undef); else PUSHs(sv_2mortal(newSVpv(stashname, 0))); - PUSHs(sv_2mortal(newSVpv(CopFILE(cx->blk_oldcop), 0))); + PUSHs(sv_2mortal(newSVpv(OutCopFILE(cx->blk_oldcop), 0))); PUSHs(sv_2mortal(newSViv((I32)CopLINE(cx->blk_oldcop)))); if (!MAXARG) RETURN; |