Correct SvLEN vs SvCUR which leads to odd "chunk" vs "line" in mess().

p4raw-id: //depot/perl@3325

diff --git a/util.c b/util.c
index f39ccd1..2794364 100644 (file)
--- a/util.c
+++ b/util.c
@@ -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",