diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-14 10:21:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-14 10:21:49 +0000 |
| commit | ed094fafab5cc8979a919ec8755493543b6bddf5 (patch) | |
| tree | d3068544a31f301f4c4ebaa5c82faf19fe89c5dd /util.c | |
| parent | ff689196a75c2757dfba08a8f95f0eb42fb81136 (diff) | |
| download | perl-ed094fafab5cc8979a919ec8755493543b6bddf5.tar.gz | |
sundry cleanups for cloned interpreters (only known failure mode
is due to regexps keeping non-constant data in their compiled
structures)
p4raw-id: //depot/perl@4579
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1420,8 +1420,8 @@ Perl_vmess(pTHX_ const char *pat, va_list *args) if (!SvCUR(sv) || *(SvEND(sv) - 1) != '\n') { dTHR; if (CopLINE(PL_curcop)) - Perl_sv_catpvf(aTHX_ sv, " at %_ line %"IVdf, - CopFILESV(PL_curcop), (IV)CopLINE(PL_curcop)); + Perl_sv_catpvf(aTHX_ sv, " at %s line %"IVdf, + CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); 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'); |