From e3ac2a9e4556c766a636d876f00c03190ee5b41f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hejl?= Date: Sat, 11 Sep 2021 00:53:24 +0200 Subject: [PATCH] Fixed Perl unit tests after 34c4b74af49c12e89fc6b5cc2bcfa36c69797578. --- t/cooling.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/cooling.t b/t/cooling.t index 9ac5a24f4..e46cfa2f7 100644 --- a/t/cooling.t +++ b/t/cooling.t @@ -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); }