862 S_remove_ppf_prefix(const char *lnm, char *eqv, unsigned short int eqvlen)  in S_remove_ppf_prefix()  argument
865         eqvlen >= 4 && eqv[0] == 0x1b && eqv[1] == 0x00      &&  in S_remove_ppf_prefix()
871         memmove(eqv, eqv+4, eqvlen-4);  in S_remove_ppf_prefix()
879 Perl_vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,  in Perl_vmstrnenv()  argument
892                                  {LNM$C_NAMLENGTH, LNM$_STRING, eqv, &eqvlen},  in Perl_vmstrnenv()
904     if (!lnm || !eqv || ((idx != 0) && ((idx-1) > PERL_LNM_MAX_ALLOWED_INDEX))) {  in Perl_vmstrnenv()
943               for (eqvlen = 0; eq[eqvlen]; eqvlen++) eqv[eqvlen] = eq[eqvlen];  in Perl_vmstrnenv()
981             strncpy(eqv,eqvdsc.dsc$a_pointer,eqvlen);  in Perl_vmstrnenv()
993           for (idx = 0, cp2 = eqv; idx <= midx; idx++) {  in Perl_vmstrnenv()
999             eqvlen = S_remove_ppf_prefix(uplnm, eqv, eqvlen);  in Perl_vmstrnenv()
1005           eqvlen = strlen(eqv);  in Perl_vmstrnenv()
1011           eqvlen = S_remove_ppf_prefix(uplnm, eqv, eqvlen);  in Perl_vmstrnenv()
1012           eqv[eqvlen] = '\0';  in Perl_vmstrnenv()
1024     else if (retsts & 1) { eqv[eqvlen] = '\0'; return eqvlen; }  in Perl_vmstrnenv()
1043 Perl_my_trnlnm(pTHX_ const char *lnm, char *eqv, unsigned long int idx)  in Perl_my_trnlnm()  argument
1055     return vmstrnenv(lnm, eqv, idx, fildev, flags);  in Perl_my_trnlnm()
1073     char uplnm[LNM$C_NAMLENGTH+1], *cp2, *eqv;  in Perl_my_getenv()  local
1086       eqv = SvPVX(tmpsv);  in Perl_my_getenv()
1096       eqv = __my_getenv_eqv;    in Perl_my_getenv()
1099     for (cp1 = lnm, cp2 = eqv; *cp1; cp1++,cp2++) *cp2 = toUPPER_A(*cp1);  in Perl_my_getenv()
1100     if (memEQs(eqv, cp1 - lnm, "DEFAULT")) {  in Perl_my_getenv()
1102       getcwd(eqv,LNM$C_NAMLENGTH);  in Perl_my_getenv()
1104       len = strlen(eqv);  in Perl_my_getenv()
1109         zeros = strstr(eqv, "/000000/");  in Perl_my_getenv()
1112           mlen = len - (zeros - eqv) - 7;  in Perl_my_getenv()
1115           eqv[len] = '\0';  in Perl_my_getenv()
1118       return eqv;  in Perl_my_getenv()
1154       success = vmstrnenv(lnm,eqv,idx,secure ? fildev : NULL,flags);  in Perl_my_getenv()
1156       return success ? eqv : NULL;  in Perl_my_getenv()
1445         char eqv[MAX_DCL_SYMBOL+1];  in prime_env_iter()  local
1448         trnlen = vmstrnenv(lnm, eqv, 0, fildev, 0);  in prime_env_iter()
1449         sv = newSVpvn(eqv, strlen(eqv));  in prime_env_iter()
1462       char eqv[LNM$C_NAMLENGTH+1];  in prime_env_iter()  local
1465         trnlen = vmstrnenv(ppfs[i],eqv,0,fildev,0);  in prime_env_iter()
1466         sv = newSVpv(eqv,trnlen);  in prime_env_iter()
1491 Perl_vmssetenv(pTHX_ const char *lnm, const char *eqv, struct dsc$descriptor_s **tabvec)  in Perl_vmssetenv()  argument
1520     if (!eqv) {  /* we're deleting n element */  in Perl_vmssetenv()
1558         return setenv(lnm,eqv,1) ? vaxc$errno : 0;  in Perl_vmssetenv()
1561         eqvdsc.dsc$a_pointer = (char *) eqv; /* cast ok to readonly parameter */  in Perl_vmssetenv()
1562         eqvdsc.dsc$w_length  = strlen(eqv);  in Perl_vmssetenv()
1574           if (!*eqv) eqvdsc.dsc$w_length = 1;  in Perl_vmssetenv()
1651 Perl_my_setenv(pTHX_ const char *lnm, const char *eqv)  in Perl_my_setenv()  argument
1660           if (eqv && *eqv) my_chdir(eqv);  in Perl_my_setenv()
1665   (void) vmssetenv(lnm,eqv,NULL);  in Perl_my_setenv()
1675 Perl_vmssetuserlnm(const char *name, const char *eqv)  in Perl_vmssetuserlnm()  argument
1686     lnmlst[0].buflen = strlen(eqv);  in Perl_vmssetuserlnm()
1687     lnmlst[0].bufadr = (char *)eqv; /* Cast OK for read only parameter */  in Perl_vmssetuserlnm()
9639   char eqv[LNM$C_NAMLENGTH+1] = "";  local
9765        len = my_trnlnm("PERL_ENV_TABLES",eqv,tabidx);
9784     my_strlcpy(tabvec[tabidx]->dsc$a_pointer, eqv, len + 1);