dougm 01/08/01 10:03:19
Modified: t/response/TestApache cgihandler.pm
Log:
workaround for modules/cgi #3 failure
Revision Changes Path
1.5 +4 -1 modperl-2.0/t/response/TestApache/cgihandler.pm
Index: cgihandler.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/cgihandler.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- cgihandler.pm 2001/06/08 01:04:56 1.4
+++ cgihandler.pm 2001/08/01 17:03:19 1.5
@@ -15,7 +15,10 @@
if ($r->method_number == Apache::M_POST) {
my $ct = $r->headers_in->get('content-length');
my $buff;
- read STDIN, $buff, $ct;
+#XXX: working around a bug in ithreads Perl
+#that would cause modules/cgi #3 to fail
+# read STDIN, $buff, $ct;
+ read 'STDIN', $buff, $ct;
print $buff;
}
else {
