diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-05-07 21:18:42 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-05-07 21:18:42 +0000 |
| commit | 7c1e0849686a4ea069f6fa2a095a70c337e62ace (patch) | |
| tree | 2834201cef1cf794e12692151dc8ca114e097159 /util.c | |
| parent | 28a8573f881e85e383be4ba96e6a3626f81ca78a (diff) | |
| download | perl-7c1e0849686a4ea069f6fa2a095a70c337e62ace.tar.gz | |
Correct SvLEN vs SvCUR which leads to odd "chunk" vs "line" in mess().
p4raw-id: //depot/perl@3325
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1227,7 +1227,7 @@ mess(const char *pat, va_list *args) GvSV(PL_curcop->cop_filegv), (long)PL_curcop->cop_line); if (GvIO(PL_last_in_gv) && IoLINES(GvIOp(PL_last_in_gv))) { bool line_mode = (RsSIMPLE(PL_rs) && - SvLEN(PL_rs) == 1 && *SvPVX(PL_rs) == '\n'); + SvCUR(PL_rs) == 1 && *SvPVX(PL_rs) == '\n'); sv_catpvf(sv, ", <%s> %s %ld", PL_last_in_gv == PL_argvgv ? "" : GvNAME(PL_last_in_gv), line_mode ? "line" : "chunk", |