3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 12:41:20 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Merge pull request #378 from beanz/underscore-options

Browse source 
Allow cli options to use '_' instead of '-'.
This commit is contained in:
Alessandro Ranellucci 2012-05-20 09:11:14 -07:00
commit 0a5cf4ba90
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
slic3r.pl
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);