[Devmon-devel] SF.net SVN: devmon:[175] trunk/modules/dm_snmp.pm

[<buc...@us...>]

Revision: 175
          http://devmon.svn.sourceforge.net/devmon/?rev=175&view=rev
Author:   buchanmilne
Date:     2010-03-10 22:24:30 +0000 (Wed, 10 Mar 2010)

Log Message:
-----------
Process forks in numerical order instead of hash order

Modified Paths:
--------------
    trunk/modules/dm_snmp.pm

Modified: trunk/modules/dm_snmp.pm
===================================================================
--- trunk/modules/dm_snmp.pm	2010-03-10 22:17:50 UTC (rev 174)
+++ trunk/modules/dm_snmp.pm	2010-03-10 22:24:30 UTC (rev 175)
@@ -200,7 +200,7 @@
     my @devices = keys %{$snmp_input};
 
     while(@devices or $active_forks) {
-      for my $fork (1 .. $g{'numforks'}) {
+      foreach my $fork (sort {$a <=> $b} keys %{$g{'forks'}}) {
 
        # First lets see if our fork is working on a device
         if(defined $g{'forks'}{$fork}{'dev'}) {
@@ -337,8 +337,9 @@
       my $pid;
 
      # Find our next available placeholder
-      for (keys %{$g{'forks'}}) 
+      for (sort {$a <=> $b} keys %{$g{'forks'}}) 
         {++$num and next if defined $g{'forks'}{$num}; last}
+      do_log("Starting fork number $num") if $g{'debug'};
 
      # Open up our communication sockets
       socketpair(


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.