Searched refs:wilddsc (Results 1 – 2 of 2) sorted by relevance
| /mirbsd/src/gnu/usr.bin/perl/ |
| D | doio.c | 2362 struct dsc$descriptor_s wilddsc in Perl_start_glob() local
2392 ok = ((wilddsc.dsc$a_pointer = tovmspath((char *)SvPVX_const(tmpglob),vmsspec)) != NULL); in Perl_start_glob()
2393 else ok = ((wilddsc.dsc$a_pointer = tovmsspec((char *)SvPVX_const(tmpglob),vmsspec)) != NULL); in Perl_start_glob()
2394 if (ok) wilddsc.dsc$w_length = (unsigned short int) strlen(wilddsc.dsc$a_pointer); in Perl_start_glob()
2395 for (cp=wilddsc.dsc$a_pointer; ok && cp && *cp; cp++) in Perl_start_glob()
2397 while (ok && ((sts = lib$find_file(&wilddsc,&rsdsc,&cxt, in Perl_start_glob()
|
| /mirbsd/src/gnu/usr.bin/perl/vms/ |
| D | vms.c | 4766 struct dsc$descriptor_s wilddsc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, tpl}, local
4811 wilddsc.dsc$w_length = resdsc.dsc$w_length = ellipsis - 1 - cp1;
4826 if (str$match_wild(&wilddsc,&resdsc) == STR$_MATCH) {
|