httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRequest.pm
Date Mon, 27 Oct 2003 22:45:14 GMT
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")))
{
  
  
  

Mime
View raw message