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->{''}; |