883     char uplnm[LNM$C_NAMLENGTH+1], *cp2;  in Perl_vmstrnenv()  local
907     for (cp1 = lnm, cp2 = uplnm; *cp1; cp1++, cp2++) {  in Perl_vmstrnenv()
915     lnmdsc.dsc$a_pointer = uplnm;  in Perl_vmstrnenv()
916     uplnm[lnmdsc.dsc$w_length] = '\0';  in Perl_vmstrnenv()
999             eqvlen = S_remove_ppf_prefix(uplnm, eqv, eqvlen);  in Perl_vmstrnenv()
1011           eqvlen = S_remove_ppf_prefix(uplnm, eqv, eqvlen);  in Perl_vmstrnenv()
1073     char uplnm[LNM$C_NAMLENGTH+1], *cp2, *eqv;  in Perl_my_getenv()  local
1148         my_strlcpy(uplnm, lnm, cp2 - lnm + 1);  in Perl_my_getenv()
1150         lnm = uplnm;  in Perl_my_getenv()
1494     char uplnm[LNM$C_NAMLENGTH], *cp2, *c;  in Perl_vmssetenv()  local
1499     struct dsc$descriptor_s lnmdsc = {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,uplnm},  in Perl_vmssetenv()
1510     for (cp1 = lnm, cp2 = uplnm; *cp1; cp1++, cp2++) {  in Perl_vmssetenv()
1656         char uplnm[8];  in Perl_my_setenv()  local
1658         for (i = 0; lnm[i]; i++) uplnm[i] = toUPPER_A(lnm[i]);  in Perl_my_setenv()
1659         if (strEQ(uplnm,"DEFAULT")) {  in Perl_my_setenv()