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 /util.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 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1104,7 +1104,7 @@ Perl_vmess(pTHX_ const char *pat, va_list *args) if (CopLINE(cop)) Perl_sv_catpvf(aTHX_ sv, " at %s line %"IVdf, - CopFILE(cop), (IV)CopLINE(cop)); + OutCopFILE(cop), (IV)CopLINE(cop)); if (GvIO(PL_last_in_gv) && IoLINES(GvIOp(PL_last_in_gv))) { bool line_mode = (RsSIMPLE(PL_rs) && SvCUR(PL_rs) == 1 && *SvPVX(PL_rs) == '\n'); |