Don't emit warnings on unknown options
This commit is contained in:
parent
c99ff0cfe2
commit
e119cee66c
@ -985,8 +985,12 @@ sub set {
|
|||||||
}
|
}
|
||||||
|
|
||||||
if (!exists $Options->{$opt_key}) {
|
if (!exists $Options->{$opt_key}) {
|
||||||
$opt_key = +(grep { $Options->{$_}{aliases} && grep $_ eq $opt_key, @{$Options->{$_}{aliases}} } keys %$Options)[0]
|
my @keys = grep { $Options->{$_}{aliases} && grep $_ eq $opt_key, @{$Options->{$_}{aliases}} } keys %$Options;
|
||||||
or warn "Unknown option $opt_key\n";
|
if (!@keys) {
|
||||||
|
warn "Unknown option $opt_key\n";
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
$opt_key = $keys[0];
|
||||||
}
|
}
|
||||||
|
|
||||||
# clone arrayrefs
|
# clone arrayrefs
|
||||||
|
Loading…
Reference in New Issue
Block a user