In jailed environments we can't assume that 127.0.0.1 will be that. R…

…eported by Jase Thew (Bazerka). Only affected one DCC test.

Changes

@@ -8,6 +8,8 @@ Revision history for Perl extension POE::Component::IRC.
     - PlugMan.pm: Don't rely on State.pm for authentication. Eliminates race
       condition when receiving channel commands before the channel has been
       synced (Hinrik)
+    - In jailed environments we can't assume that 127.0.0.1 will be that.
+      reported by Jase Thew (Bazerka).
 
 6.05_01 Sat Apr 11 09:18:28 GMT 2009
     - Compat.pm: Don't emit an extra event or print a misleading debug message

t/04_plugins/17_dcc/02_timeout.t

@@ -48,7 +48,9 @@ sub _start {
     );
 
     if ($wheel) {
-        my $port = ( unpack_sockaddr_in( $wheel->getsockname ) )[0];
+
+        my ($port,$address) = unpack_sockaddr_in( $wheel->getsockname );
+	$heap->{_addr} = unpack 'N', $address;
         $kernel->yield(_config_ircd => $port);
         $kernel->delay(_shutdown => 60, 'Timed out');
         return;
@@ -99,10 +101,10 @@ sub irc_join {
 }
 
 sub irc_dcc_request {
-    my ($sender, $cookie) = @_[SENDER, ARG3];
+    my ($sender, $heap, $cookie) = @_[SENDER, HEAP, ARG3];
 
     pass('Got dcc request');
-    is($cookie->{addr}, '2130706433', 'Correct Address Test');
+    is($cookie->{addr}, $heap->{_addr}, 'Correct Address Test');
     $sender->get_heap()->yield('quit');
 }