diff options
author | Karl Williamson <public@khwilliamson.com> | 2014-01-29 20:57:39 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2014-01-30 23:31:06 -0700 |
commit | 86897aa65fb10f5652fed7562f006ae8a470c661 (patch) | |
tree | 66aefc1a68adffcefc30620a6090c8ba6666d37b | |
parent | 30bba555e641ea6cbcb212f6a137614783930727 (diff) | |
download | perl-86897aa65fb10f5652fed7562f006ae8a470c661.tar.gz |
regcomp.c: Revert mistakenly changed line
Commit 31f05a37 mistakenly included a line that is supposed to be in a
future commit. This reverts that until then; and adds a test for it, as
this was not caught by the test suite.
-rw-r--r-- | regcomp.c | 2 | ||||
-rw-r--r-- | t/re/pat.t | 7 |
2 files changed, 7 insertions, 2 deletions
@@ -1063,7 +1063,7 @@ S_get_ANYOF_cp_list_for_ssc(pTHX_ const RExC_state_t *pRExC_state, /* If this can match all upper Latin1 code points, have to add them * as well */ - if (OP(node) == ANYOF_NON_UTF8_NON_ASCII_ALL) { + if (ANYOF_FLAGS(node) & ANYOF_NON_UTF8_NON_ASCII_ALL) { _invlist_union(invlist, PL_UpperLatin1, &invlist); } diff --git a/t/re/pat.t b/t/re/pat.t index b53853b67b..91274e60c7 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -20,7 +20,7 @@ BEGIN { require './test.pl'; } -plan tests => 711; # Update this when adding/deleting tests. +plan tests => 712; # Update this when adding/deleting tests. run_tests() unless caller; @@ -1534,6 +1534,11 @@ EOP } } + { + like "\x{AA}", qr/a?[\W_]/d, "\\W with /d synthetic start class works"; + } + + } # End of sub run_tests |