Lines Matching refs:dir
253 my($node,$dev,$dir,$name,$type,$ver,$dnode,$ddev,$ddir,$dname,$dtype,$dver);
274 ($node,$dev,$dir,$name,$type,$ver) = $fspec =~
278 last if $node && $ver && $type && $dev && $dir && $name;
283 $dir = $ddir if $ddir && !$dir;
292 $fspec .= $dir if $dir;
301 my($hasdev,$dev,$defdirs,$dir,$base,@dirs,@realdirs);
305 ($hasdev,$dir,$base) = $fspec =~ m#(/?)(.*)/(.*)#;
306 @dirs = split(m#/#,$dir);
339 my($dir,$base) = split(/[\]>]/,$fspec);
340 my(@dirs) = grep($_,split(m#\.#,$dir));
350 my($dev,$dir,$base) = $fspec =~ m#([^:<\[]*):?[<\[](.*)[>\]](.*)#;
351 my(@dirs) = split(m#\.#,$dir);
379 my($dir,$sep,$base) = $path =~ /(.*)([>\]])(.*)/;
382 "$dir$sep$base.dir;1";
385 if ($dir !~ /\./) { $dir =~ s/([<\[])/${1}000000./; }
386 $dir =~ s#\.(\w+)$#$sep$1#;
387 $dir =~ s/^.$sep//;
388 "$dir.dir;1";