Lines Matching refs:directory

462     my ($volume,$directory,$file);
465         ( $volume, $directory ) = $path =~ m|^((?:[^:]+:)?)(.*)|s;
474         $directory = $2;
479 	$directory = ":$directory" if ( $volume && $directory ); # take care of "HD::dir"
480     if ($directory) {
482         $directory .= ':' unless (substr($directory,-1) eq ':');
483         $directory = ":$directory" unless (substr($directory,0,1) eq ':');
485 	$directory = '';
489     return ($volume,$directory,$file);
580     my ($self,$volume,$directory,$file) = @_;
582     if ( (! $volume) && (! $directory) ) {
589     my ($dir_volume, $dir_dirs) = $self->splitpath($directory, 1);
595     if ($directory) {
596 	$directory = $dir_dirs if $volume;
597 	$directory =~ s/^://; # remove leading ':' if any
598 	$path .= $directory;