[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-cvs
Subject:    cvs commit: modperl-2.0/ModPerl-Registry/t special_blocks.t
From:       stas () apache ! org
Date:       2003-06-06 1:30:41
[Download RAW message or body]

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;
   }
  
  
  
[prev in list] [next in list] [prev in thread] [next in thread]