summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-10-02 22:30:15 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-10-02 22:30:15 +0000
commitc8dba6f3d3200961ec98c5df73bace6ef2bb27e0 (patch)
treef713d317b54bf9be5c39c17ffca52464325e7f8f /regcomp.c
parent9f6ab4074f86da83f9650997df3135d1f2daf062 (diff)
downloadperl-c8dba6f3d3200961ec98c5df73bace6ef2bb27e0.tar.gz
os390 fixes (suggested by Peter Prymmer)
p4raw-id: //depot/perl@1921
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 583e14c064..8b0555209c 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2270,7 +2270,9 @@ regclass(void)
if (!SIZE_ONLY) {
#ifndef ASCIIish
if ((isLOWER(lastvalue) && isLOWER(value)) ||
- (isUPPER(lastvalue) && isUPPER(value))) {
+ (isUPPER(lastvalue) && isUPPER(value)))
+ {
+ I32 i;
if (isLOWER(lastvalue)) {
for (i = lastvalue; i <= value; i++)
if (isLOWER(i))