From e26049cadd957ea0baffd783a87e7051cc45d269 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Mon, 30 Nov 2015 15:45:57 +0100
Subject: [PATCH] speak better perlish for last commit

---
 bin/mozilla/do.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index 55c37adef..c54940826 100644
--- a/bin/mozilla/do.pl
+++ b/bin/mozilla/do.pl
@@ -1737,9 +1737,7 @@ sub transfer_in_out_default {
   undef (@all_requests);
   foreach my $i (1 .. $form->{rowcount}) {
     next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
-    foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) }) {
-      push @all_requests, $request;
-    }
+    push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
   }
   DO->transfer_in_out('direction' => $prefix,
                       'requests'  => \@all_requests);
-- 
2.20.1