increase MaxProcesses
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 19 Mar 2011 21:59:49 +0000 (22:59 +0100)
committerroot <root@devel.portus.local>
Sat, 19 Mar 2011 22:00:12 +0000 (23:00 +0100)
lib/APKPM/Davolink.pm
lib/APKPM/Ping.pm

index b43f2b9..d9b4832 100644 (file)
@@ -14,7 +14,7 @@ use H1::Davolink;
 
 sub prefix { 'Davolink_' }
 
-sub info : Job : MinProcesses(1) : MaxProcesses(30) : Decode(d_array) : Encode(e_json) {
+sub info : Job : MinProcesses(1) : MaxProcesses(60) : Decode(d_array) : Encode(e_json) {
        my ( $self, $job, $workload ) = @_;
        warn "# workload = ", dump $workload;
        my $cpeip = shift @$workload;
index 4cefdfc..42d0fd9 100644 (file)
@@ -19,7 +19,7 @@ sub process_name {
 my $p = Net::Ping->new;
 $p->hires;
 
-sub ping : Job : MinProcesses(1) : MaxProcesses(50) : Encode(e_json) {
+sub ping : Job : MinProcesses(1) : MaxProcesses(100) : Encode(e_json) {
        my ( $self, $job, $workload ) = @_;
        warn "# ping $job $workload\n";
        my ( $ok, $rtt, $ip ) = $p->ping( $workload );