summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-03-20 11:56:11 -0600
committerKarl Williamson <public@khwilliamson.com>2011-03-20 12:16:13 -0600
commitc3e1d013b9da26e290ebf714fdb35fe5e7a97d9d (patch)
treeaf5c96fdeea820ded72b4f640ac8f5569e330dc2 /regexec.c
parent90826b5cd27738a30509f332296d8b985731d3fc (diff)
downloadperl-c3e1d013b9da26e290ebf714fdb35fe5e7a97d9d.tar.gz
regexec.c: Rmv special code no longer needed
The trickyness has been resolved elsewhere
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c17
1 files changed, 3 insertions, 14 deletions
diff --git a/regexec.c b/regexec.c
index 93e1417a3b..2d49c84dc7 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3625,20 +3625,9 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
char *e = PL_regeol;
if (! foldEQ_utf8_flags(s, 0, ln, cBOOL(UTF_PATTERN),
- l, &e, 0, utf8_target, fold_utf8_flags)) {
- /* One more case for the sharp s:
- * pack("U0U*", 0xDF) =~ /ss/i,
- * the 0xC3 0x9F are the UTF-8
- * byte sequence for the U+00DF. */
-
- if (!(utf8_target &&
- toLOWER(s[0]) == 's' &&
- ln >= 2 &&
- toLOWER(s[1]) == 's' &&
- (U8)l[0] == 0xC3 &&
- e - l >= 2 &&
- (U8)l[1] == 0x9F))
- sayNO;
+ l, &e, 0, utf8_target, fold_utf8_flags))
+ {
+ sayNO;
}
locinput = e;
nextchr = UCHARAT(locinput);