Lines Matching refs:volume
73 my ($volume,$directory,$file) = ('','','');
79 $volume = $1;
91 $volume = $1;
96 return ($volume,$directory,$file);
107 my ($self,$volume,$directory,$file) = @_;
110 # whatever separator is first in the $volume
111 $volume .= $1
112 if ( $volume =~ m@^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)@s &&
116 $volume .= $directory ;
118 # If the volume is not just A:, make sure the glue separator is
119 # there, reusing whatever separator is first in the $volume if possible.
120 if ( $volume !~ m@^[a-zA-Z]:\Z(?!\n)@s &&
121 $volume =~ m@[^\\/]\Z(?!\n)@ &&
124 $volume =~ m@([\\/])@ ;
126 $volume .= $sep ;
129 $volume .= $file ;
131 return $volume ;