Lines Matching refs:option
1661 my $option = '';
1662 while ($option = shift @ARGV) {
1663 if (!($option =~ /^-+/)) {
1664 $string .= '-' . $option;
1667 unshift(@ARGV, $option);
2401 my $option = '';
2402 while ($option = shift @ARGV) {
2403 if ($option =~ /^-+/) {
2404 unshift(@ARGV, $option);
2407 if ($option =~ /,/) {
2410 } else {$build_modes{$option}++;};
2413 $build_modes{$option}++;
2417 my $option = '';
2419 while ($option = shift @ARGV) {
2420 if ($option =~ /^-+/) {
2421 unshift(@ARGV, $option);
2424 if ($option =~ /,/) {
2425 foreach (split /,/, $option) {
2430 $$hash_ref{$option}++;
2441 my $option = '';
2442 while ($option = shift @ARGV) {
2443 if ($option =~ /^-+/) {
2444 unshift(@ARGV, $option);
2447 if ($option =~ /(:)/) {
2448 $option = $`;
2452 $$hash_ref{$option}++;