Changeset 18123

Show
Ignore:
Timestamp:
08/23/08 18:22:07 (5 months ago)
Author:
tokuhirom
Message:

refactor I::Standalone

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/Standalone.pm

    r18122 r18123  
    136136    $protocol = '1.0'; # XXX I don't know about why this needed. 
    137137 
    138     my $peeraddr = $self->_peeraddr($peername); 
    139  
    140     my $select = IO::Select->new; 
    141     $select->add($remote); 
     138    my $select = IO::Select->new($remote); 
    142139 
    143140    $remote->autoflush(1); 
    … …  
    189186                connection_info => { 
    190187                    method         => $method, 
    191                     address        => $peeraddr, 
     188                    address        => $self->_peeraddr($peername), 
    192189                    port           => $port, 
    193190                    protocol       => "HTTP/$protocol",