Changeset 707 for trunk/lib/Perlbal/Socket.pm

Timestamp:

10/08/07 18:10:45 (2 years ago)

Author:

marksmith

Message:

-- make persist_client_timeout service tunable apply to the max_idle_time

value used to kill sockets that are idle

Files:

• trunk/lib/Perlbal/Socket.pm (modified) (1 diff)

trunk/lib/Perlbal/Socket.pm

@@ -132 +132 @@
     my $now = time;
 
-    my %max_age;  # classname -> max age (0 means forever)
     my @to_close;
     while (my $k = each %$sf) {
         my Perlbal::Socket $v = $sf->{$k};
-        my $ref = ref $v;
-        unless (defined $max_age{$ref}) {
-            # eval because not all Danga::Socket connections in Perlbal
-            # must be Perlbal::Socket-derived
-            $max_age{$ref} = eval { $ref->max_idle_time } || 0;
-        }
-        next unless $max_age{$ref};
-        if ($v->{alive_time} < $now - $max_age{$ref}) {
+
+        my $max_age = eval { $v->max_idle_time } || 0;
+        next unless $max_age;
+
+        if ($v->{alive_time} < $now - $max_age) {
             push @to_close, $v;
         }