Lines Matching refs:volume
86 # volume, 1 if it's absolute with no volume, 0 otherwise.
169 ($volume,$directories,$file) = File::Spec->splitpath( $path );
170 ($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
172 Splits a path into volume, directory, and filename portions. Assumes that
175 ( $volume, $path, '' ).
188 my ($volume,$directory,$file) = ('','','');
192 $volume = $1;
201 $volume = $1;
206 return ($volume,$directory,$file);
217 that have the concept of a volume or that have path syntax that differentiates
256 Takes volume, directory and file portions and returns an entire path. Under
257 Unix, $volume is ignored, and this is just like catfile(). On other OSs,
258 the $volume become significant.
263 my ($self,$volume,$directory,$file) = @_;
266 # whatever separator is first in the $volume
268 $volume .= $v
269 if ( (($v) = $volume =~ m@^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)@s) &&
273 $volume .= $directory ;
275 # If the volume is not just A:, make sure the glue separator is
276 # there, reusing whatever separator is first in the $volume if possible.
277 if ( $volume !~ m@^[a-zA-Z]:\Z(?!\n)@s &&
278 $volume =~ m@[^\\/]\Z(?!\n)@ &&
281 $volume =~ m@([\\/])@ ;
283 $volume .= $sep ;
286 $volume .= $file ;
288 return $volume ;
300 # Check for volume (should probably document the '2' thing...)
304 # It's missing a volume, add one