cvs commit: httpd-test/perl-framework/t/modules env.t

[dougm]

dougm       01/10/19 17:54:14

  Modified:    perl-framework/t/modules env.t
  Log:
  fix for win32; s/[\r\n]+// rather than chomp
  
  Revision  Changes    Path
  1.10      +1 -1      httpd-test/perl-framework/t/modules/env.t
  
  Index: env.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/env.t,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- env.t     2001/09/18 15:41:03     1.9
  +++ env.t     2001/10/20 00:54:14     1.10
  @@ -29,7 +29,7 @@
       $expected = $test{$_} || 'ERROR EXPECTED UNDEFINED';
       sok {
           $actual = GET_BODY "/modules/env/$_.shtml";
  -        chomp $actual;
  +        $actual =~ s/[\r\n]+$//s;
           print "$_: EXPECT ->$expected<- ACTUAL ->$actual<-\n";
           return $actual eq $expected;
       };