Merge pull request #378 from beanz/underscore-options

Allow cli options to use '_' instead of '-'.
This commit is contained in:
Alessandro Ranellucci 2012-05-20 09:11:14 -07:00
commit 0a5cf4ba90

View File

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