3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Free @_ before spawning a new thread (known old Perl bug) as an attempt to fix the unref scalars error

Browse Source
This commit is contained in:
Alessandro Ranellucci 2013-05-19 17:34:33 +02:00
parent 48e37f97b4
commit 5494f4f385
3 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/Slic3r.pm
View File

@ -84,6 +84,7 @@ sub parallelize {
$q->enqueue(@items, (map undef, 1..$Config->threads)); $q->enqueue(@items, (map undef, 1..$Config->threads));
my $thread_cb = sub { $params{thread_cb}->($q) }; my $thread_cb = sub { $params{thread_cb}->($q) };
@_ = ();
foreach my $th (map threads->create($thread_cb), 1..$Config->threads) { foreach my $th (map threads->create($thread_cb), 1..$Config->threads) {
$params{collect_cb}->($th->join); $params{collect_cb}->($th->join);
} }

1
lib/Slic3r/GUI.pm
View File

@ -288,6 +288,7 @@ sub check_version {
my %p = @_; my %p = @_;
Slic3r::debugf "Checking for updates...\n"; Slic3r::debugf "Checking for updates...\n";
@_ = ();
threads->create(sub { threads->create(sub {
my $ua = LWP::UserAgent->new; my $ua = LWP::UserAgent->new;
$ua->timeout(10); $ua->timeout(10);

2
lib/Slic3r/GUI/Plater.pm
View File

@ -545,6 +545,7 @@ sub export_gcode {
$self->statusbar->StartBusy; $self->statusbar->StartBusy;
if ($Slic3r::have_threads) { if ($Slic3r::have_threads) {
@_ = ();
$self->{export_thread} = threads->create(sub { $self->{export_thread} = threads->create(sub {
$self->export_gcode2( $self->export_gcode2(
$print, $print,
@ -739,6 +740,7 @@ sub make_thumbnail {
} }
}; };
@_ = ();
$Slic3r::have_threads ? threads->create($cb)->detach : $cb->(); $Slic3r::have_threads ? threads->create($cb)->detach : $cb->();
} }