From 4b4885fcdf67ebf1b2b59fdf635e25551cf83db4 Mon Sep 17 00:00:00 2001 From: Alessandro Ranellucci Date: Tue, 14 Mar 2017 16:45:49 +0100 Subject: [PATCH] Remove warning when calling flowrate.pl without env variables --- utils/post-processing/flowrate.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utils/post-processing/flowrate.pl b/utils/post-processing/flowrate.pl index 7aeef24dc..ac09d5e9a 100755 --- a/utils/post-processing/flowrate.pl +++ b/utils/post-processing/flowrate.pl @@ -23,7 +23,7 @@ while (<>) { my $dist = sqrt( (($x-$X)**2) + (($y-$Y)**2) ); if ($dist > 0) { my $mm_per_mm = $e_length / $dist; # dE/dXY - my $mm3_per_mm = ($filament_diameter[$T] ** 2) * PI/4 * $mm_per_mm; + my $mm3_per_mm = (($filament_diameter[$T] // 0) ** 2) * PI/4 * $mm_per_mm; my $vol_speed = $F/60 * $mm3_per_mm; my $comment = sprintf ' ; dXY = %.3fmm ; dE = %.5fmm ; dE/XY = %.5fmm/mm; volspeed = %.5fmm^3/sec', $dist, $e_length, $mm_per_mm, $vol_speed;