Searched refs:env_tables (Results 1 – 1 of 1) sorted by relevance
209 static struct dsc$descriptor_s **env_tables = defenv; variable919 if (!tabvec || !*tabvec) tabvec = env_tables; in Perl_vmstrnenv()1324 for (i = 0; env_tables[i]; i++) { in prime_env_iter()1325 if (!have_sym && (tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer) && in prime_env_iter()1327 if (!have_lnm && str$case_blind_compare(env_tables[i],&crtlenv)) have_lnm = 1; in prime_env_iter()1337 if (!str$case_blind_compare(env_tables[i],&crtlenv)) { in prime_env_iter()1356 else if ((tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer) && in prime_env_iter()1360 if (env_tables[i]->dsc$w_length == 12 && in prime_env_iter()1361 (tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer + 6) && in prime_env_iter()1367 if (str$case_blind_compare(env_tables[i],&fildevdsc)) { in prime_env_iter()[all …]