[Fusioninventory-commit] [fusinv/fusioninventory-agent-task-snmpquery] d35412: lock shared results list when accessing it

[Guillaume Rousse]

  Branch: refs/heads/master
  Home:   https://github.com/fusinv/fusioninventory-agent-task-snmpquery
  Commit: d354123acbe3e3f3a77fb97b8536db5e838814bb
      https://github.com/fusinv/fusioninventory-agent-task-snmpquery/commit/d354123acbe3e3f3a77fb97b8536db5e838814bb
  Author: Guillaume Rousse <guillomovitch at gmail.com>
  Date:   2012-04-25 (Wed, 25 Apr 2012)

  Changed paths:
    M lib/FusionInventory/Agent/Task/NetInventory.pm

  Log Message:
  -----------
  lock shared results list when accessing it


diff --git a/lib/FusionInventory/Agent/Task/NetInventory.pm b/lib/FusionInventory/Agent/Task/NetInventory.pm
index b78b1b5..d9109c3 100644
--- 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,


================================================================