Lines Matching refs:volume
170 ($volume,$directories,$file) = File::Spec->splitpath( $path );
171 ($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
173 Splits a path into volume, directory, and filename portions. Assumes that
176 ( $volume, $path, '' ).
189 my ($volume,$directory,$file) = ('','','');
195 $volume = $1;
207 $volume = $1;
212 return ($volume,$directory,$file);
223 that have the concept of a volume or that have path syntax that differentiates
262 Takes volume, directory and file portions and returns an entire path. Under
263 Unix, $volume is ignored, and this is just like catfile(). On other OSs,
264 the $volume become significant.
269 my ($self,$volume,$directory,$file) = @_;
272 # whatever separator is first in the $volume
273 $volume .= $1
274 if ( $volume =~ m@^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)@s &&
278 $volume .= $directory ;
280 # If the volume is not just A:, make sure the glue separator is
281 # there, reusing whatever separator is first in the $volume if possible.
282 if ( $volume !~ m@^[a-zA-Z]:\Z(?!\n)@s &&
283 $volume =~ m@[^\\/]\Z(?!\n)@ &&
286 $volume =~ m@([\\/])@ ;
288 $volume .= $sep ;
291 $volume .= $file ;
293 return $volume ;