From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 23 Jul 2006 13:17:48 +0000 (+0000)
Subject: Revert part of last change, that was causing utf8 test failures
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aed58286850fb82fabacfa04fc2b91770f8f066f;p=p5sagit%2Fp5-mst-13.2.git

Revert part of last change, that was causing utf8 test failures

p4raw-id: //depot/perl@28608
---

diff --git a/toke.c b/toke.c
index 2c6d8be..7bed30b 100644
--- a/toke.c
+++ b/toke.c
@@ -12422,7 +12422,7 @@ S_swallow_bom(pTHX_ U8 *s)
 		filter_add(utf16rev_textfilter, NULL);
 		Newx(news, (PL_bufend - (char*)s) * 3 / 2 + 1, U8);
 		utf16_to_utf8_reversed(s, news,
-				       PL_bufend - (char*)s,
+				       PL_bufend - (char*)s - 1,
 				       &newlen);
 		sv_setpvn(PL_linestr, (const char*)news, newlen);
 #ifdef PERL_MAD