svn commit: r530770 - /spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm

[jm...@apache.org]

Author: jm
Date: Fri Apr 20 05:33:09 2007
New Revision: 530770

URL: http://svn.apache.org/viewvc?view=rev&rev=530770
Log:
bug 5420: Solaris sometimes reports EACCES if ports are in use, as well as EADDRINUSE.  support this

Modified:
    spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm?view=diff&rev=530770&r1=530769&r2=530770
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm Fri Apr 20 05:33:09 2007
@@ -43,7 +43,7 @@
 use Mail::SpamAssassin::Logger;
 
 use IO::Socket::INET;
-use Errno qw(EADDRINUSE);
+use Errno qw(EADDRINUSE EACCES);
 
 use constant HAS_SOCKET_INET6 => eval { require IO::Socket::INET6; };
 
@@ -221,7 +221,7 @@
     $errno = $!;
     if (defined $sock) {  # ok, got it
       last;
-    } elsif ($! == EADDRINUSE) {  # in use, let's try another source port
+    } elsif ($! == EADDRINUSE || $! == EACCES) {  # in use, let's try another source port
       dbg("dns: UDP port $lport already in use, trying another port");
     } else {
       warn "Error creating a DNS resolver socket: $errno";