Avoid divide by zero

Updates #723
shawnlaffan · Apr 6, 2019 · d3f08a9 · d3f08a9
1 parent 6d85bdb
commit d3f08a9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Biodiverse/BaseData.pm b/lib/Biodiverse/BaseData.pm
@@ -411,7 +411,7 @@ sub clone_with_coarser_cell_sizes {
 
         my $current_o = $current_cell_origins->[$i];
         my $new_o     = $new_cell_origins->[$i];
-        $fmod = ($current_o ne $new_o)
+        $fmod = ($current and $current_o ne $new_o)
           ? fmod (abs ($new_o - $current_o) / $current, 1)
           : 0;
         croak "new origin for axis $i of $new_o does not conform "