Removing warnings here and there
This commit is contained in:
parent
2ae2c6a311
commit
67a076b360
@ -41,7 +41,7 @@ use Slic3r::Print::Object;
|
||||
use Slic3r::Surface;
|
||||
use Slic3r::TriangleMesh;
|
||||
|
||||
our $threads = $have_threads ? 2 : undef;
|
||||
our $threads = $have_threads ? 2 : 1;
|
||||
|
||||
# miscellaneous options
|
||||
our $notes = '';
|
||||
|
@ -536,9 +536,9 @@ sub validate {
|
||||
|
||||
# -j, --threads
|
||||
die "Invalid value for --threads\n"
|
||||
if defined $Slic3r::threads && $Slic3r::threads < 1;
|
||||
if $Slic3r::threads < 1;
|
||||
die "Your perl wasn't built with multithread support\n"
|
||||
if defined $Slic3r::threads && $Slic3r::threads > 1 && !$Slic3r::have_threads;
|
||||
if $Slic3r::threads > 1 && !$Slic3r::have_threads;
|
||||
|
||||
# --layer-height
|
||||
die "Invalid value for --layer-height\n"
|
||||
|
@ -529,7 +529,7 @@ sub on_export_completed {
|
||||
my $self = shift;
|
||||
my ($message) = @_;
|
||||
|
||||
$self->{export_thread}->detach;
|
||||
$self->{export_thread}->detach if $self->{export_thread};
|
||||
$self->{export_thread} = undef;
|
||||
$self->statusbar->SetCancelCallback(undef);
|
||||
$self->statusbar->StopBusy;
|
||||
@ -541,7 +541,7 @@ sub on_export_failed {
|
||||
my $self = shift;
|
||||
my ($message) = @_;
|
||||
|
||||
$self->{export_thread}->detach;
|
||||
$self->{export_thread}->detach if $self->{export_thread};
|
||||
$self->{export_thread} = undef;
|
||||
$self->statusbar->SetCancelCallback(undef);
|
||||
$self->statusbar->StopBusy;
|
||||
|
Loading…
Reference in New Issue
Block a user