diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-02 03:33:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-02 03:33:14 +0000 |
| commit | 2035c5e8eb03b194190a7ef87630a0e4cc7c6251 (patch) | |
| tree | fe4d44dc3bc9e8e9bed55d764d7ac46ffe51abff /util.c | |
| parent | 7e2b0cd5b0db692085efbcbe1098082cbcb19f50 (diff) | |
| download | perl-2035c5e8eb03b194190a7ef87630a0e4cc7c6251.tar.gz | |
New try at the Class::DBI core dump at global cleanup.
p4raw-id: //depot/perl@16325
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1109,8 +1109,7 @@ Perl_vmess(pTHX_ const char *pat, va_list *args) if (CopLINE(cop)) Perl_sv_catpvf(aTHX_ sv, " at %s line %"IVdf, OutCopFILE(cop), (IV)CopLINE(cop)); - if (GvIO(PL_last_in_gv) && GvGP(PL_last_in_gv) && - IoLINES(GvIOp(PL_last_in_gv))) { + 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'); Perl_sv_catpvf(aTHX_ sv, ", <%s> %s %"IVdf, |