From: Karl Williamson <public@khwilliamson.com>
Date: Fri, 13 May 2011 16:25:16 +0000 (-0600)
Subject: regcomp.c: \x{17f} can match /\xdf/i
X-Git-Tag: accepted/trunk/20130322.191538~4130
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=fe5a0c86a16c9bba9c22c531be820646417685e2;p=platform%2Fupstream%2Fperl.git

regcomp.c: \x{17f} can match /\xdf/i
---

diff --git a/regcomp.c b/regcomp.c
index f074aca..21d54f8 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8764,6 +8764,7 @@ tryagain:
 			    break;
 			case 's':
 			case 'S':
+			case 0x17F: /* LATIN SMALL LETTER LONG S */
 			     if (AT_LEAST_UNI_SEMANTICS) {
 				if (latest_char_state == char_s) {  /* 'ss' */
 				    ender = LATIN_SMALL_LETTER_SHARP_S;