i can reproduce the problem on win32. all i can see so far is that the
problem is related to using the global request_rec (Apache->request).
with the patch below to CGI.pm to avoid Apache->request and PerlOptions
+ParseHeaders configured, i have no problems running your test case.
would be interested to hear your results using the patch. i will continue
to investigate the Apache->request issue.
--- lib/CGI.pm~ Thu Apr 11 20:12:06 2002
+++ lib/CGI.pm Fri Jun 14 18:20:13 2002
@@ -266,11 +266,11 @@
my($class,$initializer) = @_;
my $self = {};
bless $self,ref $class || $class || $DefaultClass;
- if ($MOD_PERL && defined Apache->request) {
- Apache->request->register_cleanup(\&CGI::_reset_globals);
- undef $NPH;
- }
- $self->_reset_globals if $PERLEX;
+# if ($MOD_PERL && defined Apache->request) {
+# Apache->request->register_cleanup(\&CGI::_reset_globals);
+# undef $NPH;
+# }
+ $self->_reset_globals if $PERLEX || $MOD_PERL;
$self->init($initializer);
return $self;
}
@@ -440,7 +440,7 @@
# If method is GET or HEAD, fetch the query from
# the environment.
if ($meth=~/^(GET|HEAD)$/) {
- if ($MOD_PERL) {
+ if (0 && $MOD_PERL) {
$query_string = Apache->request->args;
} else {
$query_string = $ENV{'QUERY_STRING'} if defined $ENV{'QUERY_STRING'};
@@ -1261,7 +1261,7 @@
push(@header,"Content-Type: $type") if $type ne '';
my $header = join($CRLF,@header)."${CRLF}${CRLF}";
- if ($MOD_PERL and not $nph) {
+ if (0 && $MOD_PERL and not $nph) {
my $r = Apache->request;
$r->send_cgi_header($header);
return '';
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
