Index: /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/Standalone.pm
===================================================================
--- /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/Standalone.pm (revision 18122)
+++ /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/Standalone.pm (revision 18123)
@@ -136,8 +136,5 @@
     $protocol = '1.0'; # XXX I don't know about why this needed.
 
-    my $peeraddr = $self->_peeraddr($peername);
-
-    my $select = IO::Select->new;
-    $select->add($remote);
+    my $select = IO::Select->new($remote);
 
     $remote->autoflush(1);
@@ -189,5 +186,5 @@
                 connection_info => {
                     method         => $method,
-                    address        => $peeraddr,
+                    address        => $self->_peeraddr($peername),
                     port           => $port,
                     protocol       => "HTTP/$protocol",