Lines Matching refs:args
197 my @args = @_;
203 if ($args[0] eq '') { # absolute path, rootdir
204 shift @args;
208 } elsif ($args[0] =~ /^[^:]+:/) { # absolute path, volume name
210 $first_arg = shift @args;
216 if ( $args[0] =~ /^::+\Z(?!\n)/ ) {
219 } elsif ($args[0] eq ':') {
220 $first_arg = shift @args;
223 $first_arg = shift @args;
236 while (@args) {
237 my $arg = shift @args;
241 while ((@args) && ($args[0] =~ /^::+\Z(?!\n)/) ) { # while updir colon path
242 $arg = shift @args;