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 Fri, 19 Oct 2001 03:08:11 GMT
stas        01/10/18 20:08:11

  Modified:    perl-framework/Apache-Test/lib/Apache TestRequest.pm
  Log:
  - better error checking
  
  Revision  Changes    Path
  1.47      +6 -2      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.46
  retrieving revision 1.47
  diff -u -r1.46 -r1.47
  --- TestRequest.pm	2001/10/19 02:08:17	1.46
  +++ TestRequest.pm	2001/10/19 03:08:11	1.47
  @@ -422,6 +422,10 @@
   # currently supports only GET, HEAD, PUT, POST subs
   sub same_interp_do {
       my($same_interp, $sub, $url, @args) = @_;
  +
  +    die "must pass an interpreter id to work with"
  +        unless defined $same_interp and $same_interp;
  +
       push @args, (INTERP_KEY, $same_interp);
   
       my $res      = '';
  @@ -431,8 +435,8 @@
           #loop until we get a response from our interpreter instance
           $res = $sub->($url, @args);
   
  -        if ($res->code == 200) {
  -            $found_same_interp = $res->header(INTERP_KEY);
  +        if ($res and $res->code == 200) {
  +            $found_same_interp = $res->header(INTERP_KEY) || '';
           }
   
           unless ($found_same_interp eq $same_interp) {
  
  
  

Mime
View raw message