Lines Matching refs:opt
83 while ($opt = shift(@ARGV)) {
84 if ($opt =~ s/^\-//) {
85 if ($opt eq "256") {
87 } elsif ($opt eq "384") {
89 } elsif ($opt eq "512") {
91 } elsif ($opt =~ /^ALL$/i) {
93 } elsif ($opt =~ /^c256$/i) {
95 $opt = $c256 = shift(@ARGV);
96 $opt =~ s/\s+.*$//;
97 if (!$c256 || $c256 !~ /\%/ || !-x $opt) {
98 usage("Missing or invalid command specification for option -c256: $opt\n");
100 } elsif ($opt =~ /^c384$/i) {
102 $opt = $c384 = shift(@ARGV);
103 $opt =~ s/\s+.*$//;
104 if (!$c384 || $c384 !~ /\%/ || !-x $opt) {
105 usage("Missing or invalid command specification for option -c384: $opt\n");
107 } elsif ($opt =~ /^c512$/i) {
109 $opt = $c512 = shift(@ARGV);
110 $opt =~ s/\s+.*$//;
111 if (!$c512 || $c512 !~ /\%/ || !-x $opt) {
112 usage("Missing or invalid command specification for option -c512: $opt\n");
114 } elsif ($opt =~ /^cALL$/i) {
116 $opt = $cALL = shift(@ARGV);
117 $opt =~ s/\s+.*$//;
118 if (!$cALL || $cALL !~ /\%/ || !-x $opt) {
119 usage("Missing or invalid command specification for option -cALL: $opt\n");
122 usage("Unknown/invalid option '$opt'\n");
125 usage("Invalid, nonexistent, or unreadable file '$opt': $!\n") if (!-f $opt);
126 push(@FILES, $opt);