Announce: Perlbal version 1.70

Aaron Trevena aaron.trevena at gmail.com
Mon Mar 10 11:59:25 UTC 2008


Hi Brad,

Nice work - that's a couple of patches I no longer need to apply by
hand, but appears to leave the following one (based on one linked from
list) or has something similar been applied but not warranted a
mention ? :

--- /home/aaron/downloads/PerlBal-1.60/lib/Perlbal/BackendHTTP.pm
 2008-02-04 16:46:31.000000000 +0000
+++ /usr/lib/perl5/site_perl/5.8.5/Perlbal/BackendHTTP.pm
2008-02-14 11:20:19.000000000 +0000
@@ -73,7 +73,23 @@
     }

     IO::Handle::blocking($sock, 0);
+    # catch empty ip caused by ip_conntrack table filling up
+    unless ($ip) {
+      Perlbal::log('crit', "No ip address - ip_conntrack table full -
too many files ?");
+      return undef;
+    }
+
+    # Sometimes this dies - usually when it get's an empty ip
address, handled above,
+    # or when corrupted packet or something
+    eval {
     connect $sock, Socket::sockaddr_in($port, Socket::inet_aton($ip));
+    };
+
+    if ($@) {
+       Perlbal::log('crit', "Socket connect failed (probably due to
sockaddr_in) $@");
+       return undef;
+    }
+#    connect $sock, Socket::sockaddr_in($port, Socket::inet_aton($ip));


Cheers,

A.

-- 
http://www.aarontrevena.co.uk
LAMP System Integration, Development and Hosting


More information about the perlbal mailing list