Fixed Perl unit tests after 34c4b74af4.

This commit is contained in:
Lukáš Hejl 2021-09-11 00:53:24 +02:00
parent 670ec06b97
commit e3ac2a9e45

View File

@ -34,9 +34,9 @@ sub buffer {
$gcodegen->apply_print_config($print_config);
$gcodegen->set_layer_count(10);
my @extruders = shift;
@extruders = [ 0 ] if int(@extruders) == 0;
$gcodegen->set_extruders(\@extruders);
my $extruders_ref = shift;
$extruders_ref = [ 0 ] if !defined $extruders_ref;
$gcodegen->set_extruders($extruders_ref);
return Slic3r::GCode::CoolingBuffer->new($gcodegen);
}