diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-23 13:17:48 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-23 13:17:48 +0000 |
| commit | aed58286850fb82fabacfa04fc2b91770f8f066f (patch) | |
| tree | a868d731efd797deed1a46e4ec39d4c16c047604 /toke.c | |
| parent | e294cc5d7355a434d6b698c777674e1b7d4d4583 (diff) | |
| download | perl-aed58286850fb82fabacfa04fc2b91770f8f066f.tar.gz | |
Revert part of last change, that was causing utf8 test failures
p4raw-id: //depot/perl@28608
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |