Silently ignore threads > 1 on non-threaded perls

2012-09-21 16:42:40 +02:00 · 2012-09-21 16:42:40 +02:00 · c6c7dd12da
commit c6c7dd12da
parent 27b71d8885
1 changed files with 3 additions and 0 deletions
--- a/lib/Slic3r/Config.pm
+++ b/lib/Slic3r/Config.pm
@ -944,6 +944,9 @@ sub set {
        $opt_key =~ s/^bottom_layer_speed$/first_layer_speed/;
        $value = $value =~ /^\d+(?:\.\d+)?$/ && $value != 0 ? ($value*100) . "%" : 0;
    }
+    if ($opt_key eq 'threads' && !$Slic3r::have_threads) {
+        $value = 1;
+    }
    
    if (!exists $Options->{$opt_key}) {
        $opt_key = +(grep { $Options->{$_}{aliases} && grep $_ eq $opt_key, @{$Options->{$_}{aliases}} } keys %$Options)[0]