This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH 5.005_03-MAINT-TRIAL1] some tweaks to the build process for OS/390
[perl5.git] / regcomp.c
index a09dc83..d26489c 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -2045,14 +2045,15 @@ regclass(void)
        }
        if (!SIZE_ONLY) {
 #ifndef ASCIIish
        }
        if (!SIZE_ONLY) {
 #ifndef ASCIIish
-           if ((isLOWER(lastvalue) && isLOWER(value)) ||
-               (isUPPER(lastvalue) && isUPPER(value))) {
-               if (isLOWER(lastvalue)) {
-                   for (i = lastvalue; i <= value; i++)
+           register I32 i;
+           if ((isLOWER(lastclass) && isLOWER(Class)) ||
+               (isUPPER(lastclass) && isUPPER(Class))) {
+               if (isLOWER(lastclass)) {
+                   for (i = lastclass; i <= Class; i++)
                        if (isLOWER(i))
                            ANYOF_SET(opnd, i);
                } else {
                        if (isLOWER(i))
                            ANYOF_SET(opnd, i);
                } else {
-                   for (i = lastvalue; i <= value; i++)
+                   for (i = lastclass; i <= Class; i++)
                        if (isUPPER(i))
                            ANYOF_SET(opnd, i);
                }
                        if (isUPPER(i))
                            ANYOF_SET(opnd, i);
                }