randyk 2004/07/10 18:36:06
Modified: . STATUS
glue/perl/t/apreq cgi.t
Log:
Reviewed by: joes
on Win32, printing strings of larger than about 10000 in size hangs
in the glue/perl/t/apreq/cgi test. For now print smaller messages,
and make a note in STATUS to come back to that.
Revision Changes Path
1.66 +5 -1 httpd-apreq-2/STATUS
Index: STATUS
===================================================================
RCS file: /home/cvs/httpd-apreq-2/STATUS,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -r1.65 -r1.66
--- STATUS 10 Jul 2004 22:13:28 -0000 1.65
+++ STATUS 11 Jul 2004 01:36:06 -0000 1.66
@@ -50,6 +50,10 @@
TODO:
+ - in glue/perl/t/apreq/cgi.t on Win32, printing to the error log
+ hangs if the strings involved are about 10000 in size.
+ This doesn't occur in the env/cgi tests - why?
+
- Why must fprintf(stderr, ...), rather than
apr_file_printf(err, ...), be used on Win32 in
cgi_log() of src/apreq_env.c?
1.4 +3 -2 httpd-apreq-2/glue/perl/t/apreq/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/apreq/cgi.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- cgi.t 8 Jul 2004 02:10:05 -0000 1.3
+++ cgi.t 11 Jul 2004 01:36:06 -0000 1.4
@@ -202,8 +202,9 @@
for ($req->param) {
my $param = $req->param($_);
next unless $param;
- apreq_log("$_ => $param");
- $len += length($_) + length($param);
+ my $length = length($param);
+ apreq_log("$_ has a value of length $length");
+ $len += length($_) + $length;
}
print $len;
}
