Silently ignore threads > 1 on non-threaded perls
This commit is contained in:
parent
27b71d8885
commit
c6c7dd12da
1 changed files with 3 additions and 0 deletions
|
@ -944,6 +944,9 @@ sub set {
|
||||||
$opt_key =~ s/^bottom_layer_speed$/first_layer_speed/;
|
$opt_key =~ s/^bottom_layer_speed$/first_layer_speed/;
|
||||||
$value = $value =~ /^\d+(?:\.\d+)?$/ && $value != 0 ? ($value*100) . "%" : 0;
|
$value = $value =~ /^\d+(?:\.\d+)?$/ && $value != 0 ? ($value*100) . "%" : 0;
|
||||||
}
|
}
|
||||||
|
if ($opt_key eq 'threads' && !$Slic3r::have_threads) {
|
||||||
|
$value = 1;
|
||||||
|
}
|
||||||
|
|
||||||
if (!exists $Options->{$opt_key}) {
|
if (!exists $Options->{$opt_key}) {
|
||||||
$opt_key = +(grep { $Options->{$_}{aliases} && grep $_ eq $opt_key, @{$Options->{$_}{aliases}} } keys %$Options)[0]
|
$opt_key = +(grep { $Options->{$_}{aliases} && grep $_ eq $opt_key, @{$Options->{$_}{aliases}} } keys %$Options)[0]
|
||||||
|
|
Loading…
Reference in a new issue