cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRequest.pm

[stas]

stas        2003/11/28 10:19:45

  Modified:    perl-framework/Apache-Test/lib/Apache TestRequest.pm
  Log:
  make sure that have_lwp eval {} returns 1 or 0/undef and not the value of
  the expression executed last (e.g. I was getting 5 from unless (...){} )
  
  Revision  Changes    Path
  1.93      +1 -0      
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.92
  retrieving revision 1.93
  diff -u -u -r1.92 -r1.93
  --- TestRequest.pm    7 Nov 2003 22:30:33 -0000       1.92
  +++ TestRequest.pm    28 Nov 2003 18:19:45 -0000      1.93
  @@ -30,6 +30,7 @@
               *OPTIONS = sub { _simple_req(OPTIONS => @_) };
               push @EXPORT, 'OPTIONS';
           }
  +        1;
       };
   }