httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestClient.pm TestConfig.pm TestSort.pm TestUtil.pm
Date Thu, 20 Dec 2001 16:04:17 GMT
dougm       01/12/20 08:04:17

  Modified:    perl-framework/Apache-Test/lib/Apache TestClient.pm
                        TestConfig.pm TestSort.pm TestUtil.pm
  Log:
  untabify
  
  Revision  Changes    Path
  1.2       +8 -8      httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm
  
  Index: TestClient.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- TestClient.pm	2001/12/20 03:50:20	1.1
  +++ TestClient.pm	2001/12/20 16:04:17	1.2
  @@ -64,19 +64,19 @@
   
       while (<$s>) {
           $res->{headers_as_string} .= $_;
  -	if(m:^(HTTP/\d+\.\d+)[ \t]+(\d+)[ \t]*(.*?)$eol:io) {
  +        if (m:^(HTTP/\d+\.\d+)[ \t]+(\d+)[ \t]*(.*?)$eol:io) {
               $res->{protocol} = $1;
               $res->{code} = $2;
               $res->{message} = $3;
  -	    $response_line = 1;
  -	}
  -	elsif(/^([a-zA-Z0-9_\-]+)\s*:\s*(.*?)$eol/o) {
  +            $response_line = 1;
  +        }
  +        elsif (/^([a-zA-Z0-9_\-]+)\s*:\s*(.*?)$eol/o) {
               $res->{headers}->{$1} = $2;
  -	}
  -	elsif(/^$eol$/o) {
  -	    $header_term = 1;
  +        }
  +        elsif (/^$eol$/o) {
  +            $header_term = 1;
               last;
  -	}
  +        }
       }
   
       unless ($response_line and $header_term) {
  
  
  
  1.115     +1 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.114
  retrieving revision 1.115
  diff -u -r1.114 -r1.115
  --- TestConfig.pm	2001/12/20 03:51:11	1.114
  +++ TestConfig.pm	2001/12/20 16:04:17	1.115
  @@ -431,7 +431,7 @@
       my $user = $ENV{APACHE_USER} || (getpwuid($uid) || "#$uid");
   
       if ($user eq 'root') {
  -	my $other = (getpwnam('nobody'))[0];
  +        my $other = (getpwnam('nobody'))[0];
           if ($other) {
               $user = $other;
           }
  
  
  
  1.4       +3 -3      httpd-test/perl-framework/Apache-Test/lib/Apache/TestSort.pm
  
  Index: TestSort.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSort.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- TestSort.pm	2001/12/05 08:16:36	1.3
  +++ TestSort.pm	2001/12/20 16:04:17	1.4
  @@ -39,9 +39,9 @@
   
       #from perlfaq4.pod
       for (my $i = @$list; --$i; ) {
  -	my $j = int rand ($i+1);
  -	next if $i == $j;
  -	@$list[$i,$j] = @$list[$j,$i];
  +        my $j = int rand($i+1);
  +        next if $i == $j;
  +        @$list[$i,$j] = @$list[$j,$i];
       }
   }
   
  
  
  
  1.22      +5 -5      httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm
  
  Index: TestUtil.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm,v
  retrieving revision 1.21
  retrieving revision 1.22
  diff -u -r1.21 -r1.22
  --- TestUtil.pm	2001/12/20 09:39:28	1.21
  +++ TestUtil.pm	2001/12/20 16:04:17	1.22
  @@ -82,13 +82,13 @@
       my($ext, $shebang);
   
       if (Apache::TestConfig::WIN32()) {
  -	$code =~ s/echo$/echo./mg; #required to echo newline
  -	$ext = 'bat';
  -	$shebang = "\@echo off\nREM this is a bat";
  +        $code =~ s/echo$/echo./mg; #required to echo newline
  +        $ext = 'bat';
  +        $shebang = "\@echo off\nREM this is a bat";
       }
       else {
  -	$ext = 'sh';
  -	$shebang = '#!/bin/sh';
  +        $ext = 'sh';
  +        $shebang = '#!/bin/sh';
       }
   
       $file .= ".$ext";
  
  
  

Mime
View raw message