Lines Matching refs:dir
242 my $dir = srctop_dir("test", "certs");
244 ok(run(app([@storeutl, "-noout", $dir])));
245 ok(run(app([@storeutl, "-noout", to_abs_file($dir, 1)])));
251 to_abs_file_uri($dir, 1)])));
551 my $dir;
555 ($vol, $dir, $file) = File::Spec->splitpath($file, $isdir // 0);
558 $dir = join('/', File::Spec->splitdir($dir));
561 my $newdir = $dir;
563 last if $newdir eq $dir;
564 $dir = $newdir;
568 $dir =~ s|/[^/]*[^/\.]+[^/]*/\.\.$|/|;
569 $dir =~ s|^[^/]*[^/\.]+[^/]*/\.\./|/|;
570 $dir =~ s|^[^/]*[^/\.]+[^/]*/\.\.$||;
572 $dir =~ s|/$|| if $dir ne '/';
574 $dir .= '/' if $dir ne '' && $dir !~ m|/$|;
584 $dir = '/' . $dir if $dir ne '' && $dir !~ m|^/|;
585 $dir = '/' . $vol . $dir;
587 $file = $dir . $file;