lock shared results list when accessing it

fusioninventory · Apr 25, 2012 · d354123 · d354123
1 parent 878b321
commit d354123
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/FusionInventory/Agent/Task/NetInventory.pm b/lib/FusionInventory/Agent/Task/NetInventory.pm
@@ -240,7 +240,7 @@ sub run {
         delay(1);
 
         # send results to the server
-        while (my $result = shift @results) {
+        while (my $result = do { lock @results; shift @results; }) {
             my $data = {
                 DEVICE        => $result,
                 MODULEVERSION => $VERSION,