perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/modules cgi2.t cgi.t cgiupload2.t cgiupload.t
Date Tue, 28 Sep 2004 04:17:05 GMT
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;
  
  
  

Mime
View raw message