Lines Matching refs:dir
257 my $dir = srctop_dir("test", "certs");
259 ok(run(app([@storeutl, "-noout", $dir])));
260 ok(run(app([@storeutl, "-noout", to_abs_file($dir, 1)])));
266 to_abs_file_uri($dir, 1)])));
566 my $dir;
570 ($vol, $dir, $file) = File::Spec->splitpath($file, $isdir // 0);
573 $dir = join('/', File::Spec->splitdir($dir));
576 my $newdir = $dir;
578 last if $newdir eq $dir;
579 $dir = $newdir;
583 $dir =~ s|/[^/]*[^/\.]+[^/]*/\.\.$|/|;
584 $dir =~ s|^[^/]*[^/\.]+[^/]*/\.\./|/|;
585 $dir =~ s|^[^/]*[^/\.]+[^/]*/\.\.$||;
587 $dir =~ s|/$|| if $dir ne '/';
589 $dir .= '/' if $dir ne '' && $dir !~ m|/$|;
599 $dir = '/' . $dir if $dir ne '' && $dir !~ m|^/|;
600 $dir = '/' . $vol . $dir;
602 $file = $dir . $file;
