From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 7 May 1999 21:18:42 +0000 (+0000)
Subject: Correct SvLEN vs SvCUR  which leads to odd "chunk" vs "line" in mess().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c1e0849686a4ea069f6fa2a095a70c337e62ace;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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",