diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-05-09 08:43:29 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-05-19 10:31:19 -0600 |
| commit | 13d34caaa1db4d900f9ae9502f2ba64aaeddbd9e (patch) | |
| tree | 6f08eb02ecf1d46889cea59146e4ef11569defe1 /regcomp.c | |
| parent | 16384ac1a12fbce5b13c01bce55170b34a0419aa (diff) | |
| download | perl-13d34caaa1db4d900f9ae9502f2ba64aaeddbd9e.tar.gz | |
regcomp.c: Add two tricky fold cases
These two characters fold to lower-case characters that are involved
in tricky folds, and hence these can be too.
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -8821,6 +8821,9 @@ tryagain: latest_char_state = generic_char; break; case 0x03C5: /* First char in upsilon series */ + case 0x03A5: /* Also capital UPSILON, which folds to + 03C5, and hence exhibits the same + problem */ if (p < RExC_end - 4) { /* Need >= 4 bytes left */ latest_char_state = upsilon_1; if (len != 0) { @@ -8833,6 +8836,7 @@ tryagain: } break; case 0x03B9: /* First char in iota series */ + case 0x0399: /* Also capital IOTA */ if (p < RExC_end - 4) { latest_char_state = iota_1; if (len != 0) { |