On Mon, Dec 13, 2004 at 10:06:09AM +0100, Rafael Garcia-Suarez wrote:
> Gisle Aas wrote:
> > This is a fix. With perl's extended 13 byte utf8 sequence it is not a
> > sign of an overlong sequence if the accumulated value did not increase
> > when advancing past the next continuation byte.
>
> > --- perl-current/utf8.c 2004-11-17 11:40:36.000000000 +0100
> > +++ perl-hack/utf8.c 2004-12-11 11:47:45.154715623 +0100
> > @@ -432,7 +432,7 @@
> > if (!(uv > ouv)) {
> > /* These cannot be allowed. */
> > if (uv == ouv) {
> > - if (!(flags & UTF8_ALLOW_LONG)) {
> > + if (expectlen != 13 && !(flags & UTF8_ALLOW_LONG)) {
>
> Thanks, applied as #23640.
Today's smoke went just fine.
Thanks!
