This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Modify an assert
authorKarl Williamson <khw@cpan.org>
Sat, 27 Feb 2016 22:05:09 +0000 (15:05 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 28 Feb 2016 01:08:37 +0000 (18:08 -0700)
This newly-added assert could fail, but hasn't so far.  Fix it.

regcomp.c

index 2382d5e..bb93631 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8376,7 +8376,7 @@ S_invlist_replace_list_destroys_src(pTHX_ SV * dest, SV * src)
     assert(SvTYPE(src) == SVt_INVLIST);
     assert(SvTYPE(dest) == SVt_INVLIST);
     assert(! invlist_is_iterating(src));
-    assert(SvCUR(src) < SvLEN(src));
+    assert(SvCUR(src) == 0 || SvCUR(src) < SvLEN(src));
 
     /* Make sure it ends in the right place with a NUL, as our inversion list
      * manipulations aren't careful to keep this true, but sv_usepvn_flags()