|
Lines 922-927
Link Here
|
| 922 |
# Option lookup. |
922 |
# Option lookup. |
| 923 |
sub FindOption ($$$$$) { |
923 |
sub FindOption ($$$$$) { |
| 924 |
|
924 |
|
|
|
925 |
warn "FO:[@_]"; |
| 926 |
|
| 925 |
# returns (1, $opt, $ctl, $arg, $key) if okay, |
927 |
# returns (1, $opt, $ctl, $arg, $key) if okay, |
| 926 |
# returns (1, undef) if option in error, |
928 |
# returns (1, undef) if option in error, |
| 927 |
# returns (0) otherwise. |
929 |
# returns (0) otherwise. |
|
Lines 930-935
Link Here
|
| 930 |
|
932 |
|
| 931 |
print STDERR ("=> find \"$opt\"\n") if $debug; |
933 |
print STDERR ("=> find \"$opt\"\n") if $debug; |
| 932 |
|
934 |
|
|
|
935 |
#warn $opt =~ /^($prefix)(.*)$/s; |
| 936 |
#warn "ZZ".[0,1]->[$opt =~ /^($prefix)(.*)$/s]; |
| 937 |
{use re 'debug';warn "ZZ".[0,1]->[$opt =~ /^($prefix)(.*)$/s];} |
| 938 |
|
| 933 |
return (0) unless defined($opt); |
939 |
return (0) unless defined($opt); |
| 934 |
return (0) unless $opt =~ /^($prefix)(.*)$/s; |
940 |
return (0) unless $opt =~ /^($prefix)(.*)$/s; |
| 935 |
return (0) if $opt eq "-" && !defined $opctl->{''}; |
941 |
return (0) if $opt eq "-" && !defined $opctl->{''}; |
