perl-5.32.1/vms/vms.c

5496   unsigned long int retsts, trimver, trimtype, haslower = 0, isunix = 0;  local
5662       if (islower(*tbuf)) { haslower = 1; break; }
5820   if (haslower && !DECC_EFS_CASE_PRESERVE) __mystrtolower(spec_buf);
6262       unsigned long int cmplen, haslower = 0;  local
6284         if (islower(*cp)) { haslower = 1; break; }
6505       if (haslower && !DECC_EFS_CASE_PRESERVE) __mystrtolower(buf);
13612 	            int haslower = 0;  local
13641 	                    if (islower(*cp)) { haslower = 1; break; }
13643 	                if (haslower) __mystrtolower(rslt);
13780 	    int haslower = 0;  local
13792 	            if (islower(*cp)) { haslower = 1; break; }
13794 	        if (haslower) __mystrtolower(outbuf);