Lines Matching refs:dirpath

175   my($dirpath,$tail,$suffix,$basename);
181       ($dirpath,$basename) = ($fullname =~ /^(.*[:>\]])?(.*)/s);
182       $dirpath ||= '';  # should always be defined
186     ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s);
187     $dirpath .= '.\\' unless $dirpath =~ /[\\\/]\z/;
190     ($dirpath,$basename) = ($fullname =~ m#^((?:.*[:\\/])?)(.*)#s);
191     $dirpath = './' unless $dirpath;	# Can't be 0
192     $dirpath .= '/' unless $dirpath =~ m#[\\/]\z#;
195     ($dirpath,$basename) = ($fullname =~ /^(.*:)?(.*)/s);
196     $dirpath = ':' unless $dirpath;
199     ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/s);
200     $dirpath = './' unless $dirpath;
203     ($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#s);
209       ($dirpath,$basename) = ($remainder =~ m#^(.*/)?(.*)#s);
210       $dirpath ||= '';  # should always be defined
211       $dirpath = $devspec.$dirpath;
213     $dirpath = './' unless $dirpath;
228   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)