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->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);
} }