httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-apreq-2/glue/perl/t/response/TestApReq big_input.pm
Date Thu, 25 Mar 2004 01:09:29 GMT
stas        2004/03/24 17:09:29

  Modified:    glue/perl/t/response/TestApReq big_input.pm
  Log:
  prevent failures on unitialized values
  
  Revision  Changes    Path
  1.3       +2 -1      httpd-apreq-2/glue/perl/t/response/TestApReq/big_input.pm
  
  Index: big_input.pm
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/response/TestApReq/big_input.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- big_input.pm	17 Jul 2003 02:59:33 -0000	1.2
  +++ big_input.pm	25 Mar 2004 01:09:28 -0000	1.3
  @@ -12,7 +12,8 @@
       my $len = 0;
   
       for ($req->param) {
  -        $len += length($_) + length($req->param($_)) + 2; # +2 ('=' and '&')
  +        my $val = $req->param($_) || '';
  +        $len += length($_) + length($val) + 2; # +2 ('=' and '&')
       }
       $len--; # the stick with two ends one '&' char off
   
  
  
  

Mime
View raw message