Allow cli options to use '_' instead of '-'.

This makes it easier to copy and paste options from config files.
This commit is contained in:
Mark Hindess 2012-05-20 17:01:40 +01:00
parent 67a076b360
commit b0303c1e3b

View File

@ -30,8 +30,12 @@ my %cli_options = ();
); );
foreach my $opt_key (keys %$Slic3r::Config::Options) { foreach my $opt_key (keys %$Slic3r::Config::Options) {
my $opt = $Slic3r::Config::Options->{$opt_key}; my $opt = $Slic3r::Config::Options->{$opt_key};
$options{ $opt->{cli} } = \$cli_options{$opt_key} my $cli = $opt->{cli} or next;
if $opt->{cli}; if ($cli =~ /-/) {
# allow alternative options with '_' in place of '-'
$cli = $opt_key.'|'.$cli;
}
$options{ $cli } = \$cli_options{$opt_key};
} }
GetOptions(%options) or usage(1); GetOptions(%options) or usage(1);