summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2014-01-29 20:57:39 -0700
committerKarl Williamson <public@khwilliamson.com>2014-01-30 23:31:06 -0700
commit86897aa65fb10f5652fed7562f006ae8a470c661 (patch)
tree66aefc1a68adffcefc30620a6090c8ba6666d37b
parent30bba555e641ea6cbcb212f6a137614783930727 (diff)
downloadperl-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.c2
-rw-r--r--t/re/pat.t7
2 files changed, 7 insertions, 2 deletions
diff --git a/regcomp.c b/regcomp.c
index 7fa4473016..d992be736a 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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