Removing warnings here and there

This commit is contained in:
Alessandro Ranellucci 2012-05-20 17:21:31 +02:00
parent 2ae2c6a311
commit 67a076b360
3 changed files with 5 additions and 5 deletions

View File

@ -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 = '';

View File

@ -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"

View File

@ -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;