This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: [perl #133896] Assertion failure
authorKarl Williamson <khw@cpan.org>
Fri, 5 Apr 2019 22:21:51 +0000 (16:21 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 5 Apr 2019 23:14:11 +0000 (17:14 -0600)
commit45671da298df5eb367286a19e0b03796307902c9
tree20ecb5c05880393718de5d8d7a7f920cdc3cb7d7
parent9d5c52dfb15d17a41d63829964fdda6657054a13
PATCH: [perl #133896] Assertion failure

This was due to UTF8_SAFE_SKIP(s, e) not allowing s to be as large as e,
and there are legitimate cases where it can be.  This commit hardens the
macro so that it never reads above e-1, returning 0 if it otherwise
would be required to.  The assertion is changed to 's <= e'.
t/re/reg_mesg.t
utf8.h