$name = 'COOKIE' if $name eq 'COOKIES';
$name =~ tr/-/_/;
$name = 'HTTP_' . $name
- unless $name =~ m/\A(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)\z/;
+ unless $name =~ m/\A(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)\z/;
my $value = $request->header($header);
if ( exists $ENV{$name} ) {
$ENV{$name} .= "; $value";
=cut
-sub read_chunk { shift; shift->request->handle->read( @_ ); }
+sub read_chunk { shift; shift; *STDIN->read(@_); }
=back