Changeset 17526

Show
Ignore:
Timestamp:
08/12/08 17:36:20 (5 years ago)
Author:
yappo
Message:

oops

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine/trunk/t/010_core/responsewriter-with_io.t

    r17525 r17526  
    176176my $res = HTTP::Engine::Response->new(body => $tmp, status => 200); 
    177177 
     178HTTP::Engine::ResponseFinalizer->finalize( $req, $res ); 
    178179my $write; 
    179180do { 
    180181    no warnings 'redefine'; 
    181     local *HTTP::Engine::ResponseWriter::_write = sub { warn $write++; undef }; 
     182    local *HTTP::Engine::ResponseWriter::_write = sub { $write++; undef }; 
    182183    $writer->finalize( $req, $res ); 
    183184};