From: Moritz Bunkus Date: Fri, 30 Aug 2019 13:00:03 +0000 (+0200) Subject: AttrSorted-Helfer: Warnungen wegen nicht initialisierten Werten vermeiden X-Git-Tag: release-3.5.6.1~501 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=6b89ba35e8cba27250826da9c64d2a20706caca7;p=kivitendo-erp.git AttrSorted-Helfer: Warnungen wegen nicht initialisierten Werten vermeiden Durch Tests getriggert, konkret: durch t/controllers/csvimport/parts.t --- diff --git a/SL/DB/Helper/AttrSorted.pm b/SL/DB/Helper/AttrSorted.pm index 77c5f19bc..67c44410d 100644 --- a/SL/DB/Helper/AttrSorted.pm +++ b/SL/DB/Helper/AttrSorted.pm @@ -29,7 +29,7 @@ sub _make_sorted { croak 'not an accessor' if @_ > 1; - my $next_position = (max map { $_->$position_sub // 0 } @{ $self->$unsorted_sub }) + 1; + my $next_position = ((max map { $_->$position_sub // 0 } @{ $self->$unsorted_sub }) // 0) + 1; return [ map { $_->[1] } sort { $a->[0] <=> $b->[0] }