X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9e9a940e1361ef26a2cf2f8e40ac1bd901771fdc..dfb76ebf04df9aed8ba63d7b51bc558d2928030e:/SL/DO.pm

diff --git a/SL/DO.pm b/SL/DO.pm
index 5b5cf1d13..0d2a5ec21 100644
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -408,7 +408,7 @@ sub mark_orders_if_delivered {
                                         'to_table'   => 'delivery_orders',
                                         'to_id'      => $params{do_id});
 
-  my ($oe_id)  = $links[0]->{from_id} if (scalar @links);
+  my $oe_id  = @links ? $links[0]->{from_id} : undef;
 
   return $main::lxdebug->leave_sub() if (!$oe_id);