summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2013-04-06 12:56:52 -0600
committerKarl Williamson <public@khwilliamson.com>2013-08-29 09:56:06 -0600
commit2ca8589c5190f9016bfcdbc996f56ad0b8557fef (patch)
tree317f5b4f693d9429ff62160b62ec6ec79bfdd864 /regcomp.c
parent80e0b38f646b11e453a9c2a9b9246021446ff851 (diff)
downloadperl-2ca8589c5190f9016bfcdbc996f56ad0b8557fef.tar.gz
regcomp.c: In EBCDIC [i-j] exclude also ASCII
i and j are not adjacent in EBCDIC. This excluded any alphabetic characters between them, but allowed other ascii ones.
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index 595cabcfcb..7f16ff23f6 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -13191,6 +13191,8 @@ parseit:
&& (prevvalue >= 'a' && value <= 'z')
|| (prevvalue >= 'A' && value <= 'Z'))
{
+ _invlist_intersection(this_range, PL_ASCII,
+ &this_range);
_invlist_intersection(this_range, PL_Posix_ptrs[_CC_ALPHA],
&this_range);
}