cvs commit: httpd-test/perl-framework/t/apache chunkinput.t

[coar]

coar        2004/05/13 04:18:20

  Modified:    perl-framework/t/apache chunkinput.t
  Log:
  perl error sometimes obscures test results
  
  Revision  Changes    Path
  1.6       +2 -1      httpd-test/perl-framework/t/apache/chunkinput.t
  
  Index: chunkinput.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/chunkinput.t,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -u -r1.5 -r1.6
  --- chunkinput.t      23 Mar 2004 20:52:12 -0000      1.5
  +++ chunkinput.t      13 May 2004 11:18:20 -0000      1.6
  @@ -66,7 +66,8 @@
       while ($response ne "");
   
       if ($cycle == 1) {
  -        chomp($response = Apache::TestRequest::getline($sock));
  +        $response = Apache::TestRequest::getline($sock);
  +        chomp($response) if (defined($response));
           ok t_cmp("$$", $response, "trailer (pid)");
       }
     }