PATCH: [perl #133348] BBC JE
authorKarl Williamson <khw@cpan.org>
Sat, 7 Jul 2018 21:16:10 +0000 (15:16 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 7 Jul 2018 21:22:02 +0000 (15:22 -0600)
Commit b1d21918e268271d791ff30e83cf9c4f8c351707 was missing a line in
its attempt to partially revert a74bb78e4469c9f5ea806b57b155df6265d07975.

regcomp.c
t/re/re_tests

index b053160..d416d23 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5623,6 +5623,7 @@ Perl_re_printf( aTHX_  "LHS=%" UVuf " RHS=%" UVuf "\n",
 
                 case NPOSIXA:   /* For these, we always know the exact set of
                                    what's matched */
+                    invert = 1;
                     /* FALLTHROUGH */
                case POSIXA:
                     assert(FLAGS(scan) != _CC_ASCII);
index 4043d12..0e80a6c 100644 (file)
@@ -1993,7 +1993,7 @@ AB\s+\x{100}      AB \x{100}X     y       -       -
 ^(\d+)*?4X$    1234X   y       $1      123     # perl #131648
 (?il)\x{100}|\x{100}|\x{FE}    \xFE    y       $&      \xFE
 \A([\x00-\x7F]+)(.*)\z \007\011\012    y       $&      \007\011\012    # [perl #133311]
-
+(?:(?^:(?{1}))[^0-9])  :       y       $&      :       # [perl #133348]
 
 # Keep these lines at the end of the file
 # vim: softtabstop=0 noexpandtab