restored => 0,
setuped => 0,
stdin => IO::File->new_tmpfile,
- stdout => IO::File->new_tmpfile,
- stderr => IO::File->new_tmpfile
+ stdout => IO::File->new_tmpfile
};
$self->{enviroment} = {
open( STDIN, '<&=', $self->stdin->fileno )
or croak("Can't open stdin: $!");
- binmode( $self->stdin, ':raw' );
- binmode( STDIN, ':raw' );
+ binmode( $self->stdin );
+ binmode( STDIN );
if ( $self->request->content_length ) {
open( STDOUT, '>&=', $self->stdout->fileno )
or croak("Can't open stdout: $!");
- binmode( $self->stdout, ':raw' );
- binmode( STDOUT, ':raw' );
+ binmode( $self->stdout );
+ binmode( STDOUT);
}
if ( $self->stderr ) {
open( STDERR, '>&=', $self->stderr->fileno )
or croak("Can't open stderr: $!");
- binmode( $self->stderr, ':raw' );
- binmode( STDERR, ':raw' );
+ binmode( $self->stderr );
+ binmode( STDERR );
}
{
=head1 BUGS
+=item THANKS TO
+
+Thomas L. Shinnick for his valuable win32 testing.
+
=head1 AUTHOR
Christian Hansen, C<ch@ngmedia.com>
use strict;
use warnings;
+use IO::File;
use HTTP::Request;
use HTTP::Request::AsCGI;
$r->content_length(5);
$r->content_type('text/plain');
-my $c = HTTP::Request::AsCGI->new($r)->setup;
+my $c = HTTP::Request::AsCGI->new($r);
+$c->stderr(IO::File->new_tmpfile);
+$c->setup;
print STDOUT 'STDOUT';
print STDERR 'STDERR';