Lines Matching refs:args
30 my($target, $args, $truth) = @_;
32 $args ||= \@ARGV;
35 "Starting switch processing. Scanning arguments [@$args]\n"
38 return unless @$args;
47 while( @$args and ($_ = $args->[0]) =~ m/^-(.)(.*)/s ) {
50 shift @$args;
56 shift @$args;
57 warn "Option $first needs a following argument!\n" unless @$args;
58 $rest = shift @$args;
60 shift @$args;
89 shift @$args
91 DEBUG > 2 and print " Setting args->[0] to \"-$rest\"\n";
92 $args->[0] = "-$rest";
99 "Ending switch processing. Args are [@$args] with $error_count errors.\n"