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