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

[stas]

stas        2004/01/30 16:25:46

  Modified:    perl-framework/t/apache contentlength.t
  Log:
  chomp needs a defined value (with 1.3 this test fails)
  
  Revision  Changes    Path
  1.3       +2 -2      httpd-test/perl-framework/t/apache/contentlength.t
  
  Index: contentlength.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/apache/contentlength.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- contentlength.t   8 Oct 2002 21:45:29 -0000       1.2
  +++ contentlength.t   31 Jan 2004 00:25:46 -0000      1.3
  @@ -49,12 +49,12 @@
       $sock->print("\n");
   
       # Read the status line
  -    chomp(my $response = Apache::TestRequest::getline($sock));
  +    chomp(my $response = Apache::TestRequest::getline($sock) || '');
       $response =~ s/\s$//;
       ok t_cmp($resp_strings[$cycle++], $response, "response codes");
   
       do {
  -        chomp($response = Apache::TestRequest::getline($sock));
  +        chomp($response = Apache::TestRequest::getline($sock) || '');
           $response =~ s/\s$//;
       }
       while ($response ne "");