cvs commit: modperl-2.0/ModPerl-Registry/t special_blocks.t

[stas]

stas        2003/06/05 18:30:41

  Modified:    ModPerl-Registry/t special_blocks.t
  Log:
  check ->is_success, rather whether the response object is true
  
  Revision  Changes    Path
  1.5       +1 -1      modperl-2.0/ModPerl-Registry/t/special_blocks.t
  
  Index: special_blocks.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/special_blocks.t,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- special_blocks.t  22 May 2002 05:40:48 -0000      1.4
  +++ special_blocks.t  6 Jun 2003 01:30:41 -0000       1.5
  @@ -94,5 +94,5 @@
       my($same_interp, $url) = @_;
       my $res = Apache::TestRequest::same_interp_do($same_interp,
                                                     \&GET, $url);
  -    return $res ? $res->content : undef;
  +    return $res->is_success ? $res->content : undef;
   }