This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Change ref to obsolete global var
authorKarl Williamson <khw@cpan.org>
Fri, 25 Apr 2014 16:56:22 +0000 (10:56 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 31 May 2014 16:17:19 +0000 (10:17 -0600)
This was changed in v5.19, but not found because we don't have an EBCDIC
smoker.  Spotted by Yaroslav Kuzmin.

regcomp.c

index 9ca959f..a259624 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -14153,7 +14153,7 @@ parseit:
                 && ((prevvalue >= 'a' && value <= 'z')
                     || (prevvalue >= 'A' && value <= 'Z')))
             {
-                _invlist_intersection(this_range, PL_ASCII,
+                _invlist_intersection(this_range, PL_XPosix_ptrs[_CC_ASCII],
                                       &this_range);
 
                 /* Since this above only contains ascii, the intersection of it