Use dotted-quad format for localaddr()

Remove that dubious if block from DCC.pm. POE::Wheel::SocketFactory
accepts dotted quads anyway. This should allow the DCC plugin to bind
to an arbitrary interface when so requested.

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension POE::Component::IRC.
 
+6.11
+    - Fix localaddr() issue reported in RT #48791 by Michael Andreen
+
 6.10 Fri Aug 14 21:19:07 BST 2009
     - Time for a stable release
 

lib/POE/Component/IRC.pm

@@ -378,7 +378,7 @@ sub _sock_up {
     }
 
     $localaddr = (unpack_sockaddr_in( getsockname $socket ))[1] if !$localaddr;
-    $self->{localaddr} = $localaddr;
+    $self->{localaddr} = inet_ntoa($localaddr);
 
     if ( $self->{socks_proxy} ) {
         $self->{socket} = new POE::Wheel::ReadWrite(

lib/POE/Component/IRC/Plugin/DCC.pm

@@ -188,9 +188,6 @@ sub _U_dcc {
     }
 
     $bindaddr = $irc->localaddr();
-    if ($bindaddr && $bindaddr =~ tr/a-zA-Z.//) {
-        $bindaddr = inet_aton($bindaddr);
-    }
 
     if ($self->{dccports}) {
         $bindport = shift @{ $self->{dccports} };