Fixed Perl unit tests after 34c4b74af4
.
This commit is contained in:
parent
670ec06b97
commit
e3ac2a9e45
@ -34,9 +34,9 @@ sub buffer {
|
|||||||
$gcodegen->apply_print_config($print_config);
|
$gcodegen->apply_print_config($print_config);
|
||||||
$gcodegen->set_layer_count(10);
|
$gcodegen->set_layer_count(10);
|
||||||
|
|
||||||
my @extruders = shift;
|
my $extruders_ref = shift;
|
||||||
@extruders = [ 0 ] if int(@extruders) == 0;
|
$extruders_ref = [ 0 ] if !defined $extruders_ref;
|
||||||
$gcodegen->set_extruders(\@extruders);
|
$gcodegen->set_extruders($extruders_ref);
|
||||||
return Slic3r::GCode::CoolingBuffer->new($gcodegen);
|
return Slic3r::GCode::CoolingBuffer->new($gcodegen);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user