stas 2004/09/27 21:17:05
Modified: t/modules cgi2.t cgi.t cgiupload2.t cgiupload.t
Log:
mark the known bug in CGI.pm 3.05 and earlier when run under perl 5.6,
guessing that it'll be fixed in CGI 3.06
Revision Changes Path
1.5 +2 -0 modperl-2.0/t/modules/cgi2.t
Index: cgi2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgi2.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -u -r1.4 -r1.5
--- cgi2.t 3 Aug 2004 16:16:22 -0000 1.4
+++ cgi2.t 28 Sep 2004 04:17:05 -0000 1.5
@@ -36,6 +36,8 @@
if (HAVE_LWP) {
sok {
+ t_client_log_warn_is_expected(4)
+ if $] < 5.008 && require CGI && $CGI::VERSION < 3.06;
$str = UPLOAD_BODY $location, content => 4;
t_cmp($str, "ok 4", 'file upload');
};
1.15 +2 -0 modperl-2.0/t/modules/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgi.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -u -r1.14 -r1.15
--- cgi.t 3 Aug 2004 16:16:22 -0000 1.14
+++ cgi.t 28 Sep 2004 04:17:05 -0000 1.15
@@ -36,6 +36,8 @@
if (HAVE_LWP) {
sok {
+ t_client_log_warn_is_expected(4)
+ if $] < 5.008 && require CGI && $CGI::VERSION < 3.06;
$str = UPLOAD_BODY $location, content => 4;
t_cmp($str, "ok 4", 'file upload');
};
1.4 +2 -0 modperl-2.0/t/modules/cgiupload2.t
Index: cgiupload2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgiupload2.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- cgiupload2.t 3 Aug 2004 16:16:22 -0000 1.3
+++ cgiupload2.t 28 Sep 2004 04:17:05 -0000 1.4
@@ -27,6 +27,8 @@
$filename ||= catfile Apache::Test::vars('serverroot'), "..", 'Makefile';
for (1,2) {
+ t_client_log_warn_is_expected(4)
+ if $] < 5.008 && require CGI && $CGI::VERSION < 3.06;
my $str = UPLOAD_BODY $location, filename => $filename;
my $body_len = length $str;
my $file_len = -s $filename;
1.12 +2 -0 modperl-2.0/t/modules/cgiupload.t
Index: cgiupload.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgiupload.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -u -r1.11 -r1.12
--- cgiupload.t 3 Aug 2004 16:16:22 -0000 1.11
+++ cgiupload.t 28 Sep 2004 04:17:05 -0000 1.12
@@ -27,6 +27,8 @@
$filename ||= catfile Apache::Test::vars('serverroot'), "..", 'Makefile';
for (1,2) {
+ t_client_log_warn_is_expected(4)
+ if $] < 5.008 && require CGI && $CGI::VERSION < 3.06;
my $str = UPLOAD_BODY $location, filename => $filename;
my $body_len = length $str;
my $file_len = -s $filename;
