Lines Matching refs:arg
401 my $arg;
405 while ( $arg = shift @ARGV ) {
406 $arg =~ /^-force$/ and $opt_force = 1 and next;
407 $arg =~ /^-check$/ and $opt_check = 1 and $opt_verbose = 1 and next;
408 $arg =~ /^-quiet$/ and $opt_silent = 1 and next;
409 $arg =~ /^-verbose$/ and $opt_verbose = 1 and next;
410 $arg =~ /^-zip$/ and $opt_zip = 1 and next;
411 $arg =~ /^-delete$/ and $opt_delete = 1 and next;
412 $arg =~ /^-dontdeletecommon$/ and $dontdeletecommon = 1 and next;
413 $arg =~ /^-help$/ and $opt_help = 1 and $arg = '';
414 $arg =~ /^-link$/ and $ENV{GUI} ne 'WNT' and $opt_link = 1 and next;
415 $arg =~ /^-deloutput$/ and $opt_deloutput = 1 and next;
416 $arg =~ /^-debug$/ and $is_debug = 1 and next;
417 $arg =~ /^-checkdlst$/ and $opt_checkdlst = 1 and next;
418 print_error("invalid option $arg") if ( $arg =~ /^-/ );
419 if ( $arg =~ /^-/ || $opt_help || $#ARGV > -1 ) {
422 $dest = $arg;