stas 2003/11/07 00:55:32
Modified: t/response/TestApache cgihandler.pm read.pm
Log:
fix copy-n-paste (s/ct/cl/ as in content-length)
Revision Changes Path
1.8 +3 -3 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.7
retrieving revision 1.8
diff -u -u -r1.7 -r1.8
--- cgihandler.pm 11 Apr 2002 11:08:44 -0000 1.7
+++ cgihandler.pm 7 Nov 2003 08:55:32 -0000 1.8
@@ -16,12 +16,12 @@
$ENV{FOO} = 2;
if ($r->method_number == Apache::M_POST) {
- my $ct = $r->headers_in->get('content-length');
+ my $cl = $r->headers_in->get('content-length');
my $buff;
#XXX: working around a bug in ithreads Perl
#that would cause modules/cgi #3 to fail
-# read STDIN, $buff, $ct;
- read 'STDIN', $buff, $ct;
+# read STDIN, $buff, $cl;
+ read 'STDIN', $buff, $cl;
print $buff;
}
else {
1.4 +2 -2 modperl-2.0/t/response/TestApache/read.pm
Index: read.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/read.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- read.pm 17 Dec 2002 07:15:46 -0000 1.3
+++ read.pm 7 Nov 2003 08:55:32 -0000 1.4
@@ -14,12 +14,12 @@
my $r = shift;
$r->content_type('text/plain');
- my $ct = $r->headers_in->get('content-length');
+ my $cl = $r->headers_in->get('content-length');
my $buffer = "";
my $bufsiz = $r->args || BUFSIZ;
my $offset = 0;
- while (my $remain = $ct - $offset) {
+ while (my $remain = $cl - $offset) {
my $len = $remain >= $bufsiz ? $bufsiz : $remain;
my $read = $r->read($buffer, $len, $offset);
if ($read != $len) {
