Lines Matching refs:path
14 my $path = shift;
17 if ($path =~ s/^(:+)//) {
19 @pre = (".") unless length($path);
27 my $isdir = ($path =~ s/:$//);
28 $path =~ s,([%/;]),$URI::Escape::escapes{$1},g;
30 my @path = split(/:/, $path, -1);
31 for (@path) {
37 push (@path,"") if $isdir;
38 (join("/", @pre, @path), 1);
46 my @path;
54 @path = ("", $auth);
59 my @ps = split("/", $uri->path, -1);
60 shift @ps if @path;
61 push(@path, @ps);
64 if (!@path) {
65 return; # empty path; XXX return ":" instead?
66 } elsif ($path[0] eq "") {
68 shift(@path);
69 if (@path == 1) {
70 return if $path[0] eq ""; # not root directory
71 push(@path, ""); # volume only, effectively append ":"
73 @ps = @path;
74 @path = ();
79 push(@path,$part);
82 push(@path,"");
87 @ps = @path;
88 @path = ();
93 push(@path,$part);
96 push(@path,"");
100 return unless $pre || @path;
101 for (@path) {
108 $pre . join(":", @path);
114 my $path = $class->file(@_);
115 return unless defined $path;
116 $path .= ":" unless $path =~ /:$/;
117 $path;