Lines Matching refs:dir
284 # Done with dir. Clean up for next time:
921 # If passed a prefix in $prefix, try to create a unique tmp dir
941 my $dir = "$basedir.$suffix";
943 if ($dir =~ m,^/tmp/,) {
944 if (! mkpath($dir, 0, 0700) || ! -d $dir) {
945 emsg("%s", nocreatedir($dir, $!));
949 if (! mkpath($dir) || ! -d $dir) {
950 emsg("%s", nocreatedir($dir, $!));
954 return $dir;
963 my ($dir) = @_;
965 return 0 if (! -d $dir);
970 if (opendir($dir_is_empty_dh, $dir)) {
1468 my $dir = "auto"; # all model indexes are created automatically
1470 if (exists($lib_index_loaded{$dir})) {
1471 if ($lib_index_loaded{$dir} == -1) {
1523 $key = "$dir|$lib2|$abi";
1546 $key = "$dir|$device/$inode|$abi";
1555 push(@lib_index_loaded, $dir);
1557 $lib_index_loaded{$dir} = $link_cnt;
1560 $lib_index_loaded{$dir} = -1;