Don't emit warnings on unknown options

This commit is contained in:
Alessandro Ranellucci 2012-11-18 17:42:52 +01:00
parent c99ff0cfe2
commit e119cee66c

View File

@ -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