SL::DB::Unit: Warnungen wegen nicht initialisierten Werten vermeiden

Durch Tests getriggert, konkret: durch t/wh/transfer.t

diff --git a/SL/DB/Unit.pm b/SL/DB/Unit.pm
index f5f1bc14c7ce0c67c23d147d6a3ad649ed78eaad..508aa747718cd2fe9a0520df18df204c347e023b 100644 (file)
--- a/SL/DB/Unit.pm
+++ b/SL/DB/Unit.pm
@@ -57,7 +57,7 @@ sub convert_to {
   my $my_base_factor    = $self->base_factor       || 1;
   my $other_base_factor = $other_unit->base_factor || 1;
 
   my $my_base_factor    = $self->base_factor       || 1;
   my $other_base_factor = $other_unit->base_factor || 1;
 

-  return $qty * $my_base_factor / $other_base_factor;
+  return ($qty // 0) * $my_base_factor / $other_base_factor;

 }
 
 sub is_time_based {
 }
 
 sub is_time_based {