stas 2003/10/27 14:45:13
Modified: perl-framework/Apache-Test/lib/Apache TestRequest.pm
Log:
croak if lwp didn't return a response object
Revision Changes Path
1.91 +3 -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.90
retrieving revision 1.91
diff -u -u -r1.90 -r1.91
--- TestRequest.pm 2 Oct 2003 17:40:15 -0000 1.90
+++ TestRequest.pm 27 Oct 2003 22:45:13 -0000 1.91
@@ -421,8 +421,10 @@
my($name, $shortcut) = (shift, shift);
my $r = (\&{$name})->(@_);
- my $error = "";
+ Carp::croak("$name(@_) didn't return a response object") unless $r;
+
+ my $error = "";
unless ($shortcut) {
#GET, HEAD, POST
if ($r->method eq "POST" && !defined($r->header("Content-Length"))) {
