You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by do...@apache.org on 2002/09/18 23:14:58 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRequest.pm
dougm 2002/09/18 14:14:58
Modified: perl-framework/Apache-Test/lib/Apache TestRequest.pm
Log:
allow zero length POST data
Revision Changes Path
1.72 +1 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm
Index: TestRequest.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- TestRequest.pm 4 Apr 2002 00:54:26 -0000 1.71
+++ TestRequest.pm 18 Sep 2002 21:14:58 -0000 1.72
@@ -251,7 +251,7 @@
$credentials{$keep->{realm} || '__ALL__'} =
[$keep->{username}, $keep->{password}];
}
- if (my $content = $keep->{content}) {
+ if (defined(my $content = $keep->{content})) {
if ($content eq '-') {
$content = join '', <STDIN>;
}