Show
Ignore:
Timestamp:
08/23/08 18:45:17 (5 years ago)
Author:
tokuhirom
Message:

no one used $self->{_sigpipe}

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r18126 r18127  
    9494        ### accept : $remote->fileno 
    9595        # TODO (Catalyst): get while ( my $remote = $daemon->accept ) to work 
    96         delete $self->{_sigpipe}; 
    97  
    9896        next unless my($method, $uri, $protocol) = $self->_parse_request_line($remote); 
    9997        unless (uc $method eq 'RESTART') { 
    … …  
    128126 
    129127    # Ignore broken pipes as an HTTP server should 
    130     local $SIG{PIPE} = sub { $self->{_sigpipe} = 1; close $remote }; 
     128    local $SIG{PIPE} = sub { close $remote }; 
    131129 
    132130    # We better be careful and just use 1.0