You are viewing a plain text version of this content. The canonical link for it is here.
Posted to apreq-cvs@httpd.apache.org by st...@apache.org on 2004/03/25 02:09:29 UTC
cvs commit: httpd-apreq-2/glue/perl/t/response/TestApReq big_input.pm
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