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 = "[EMAIL PROTECTED] off\nREM this is a bat";
+ $code =~ s/echo$/echo./mg; #required to echo newline
+ $ext = 'bat';
+ $shebang = "[EMAIL PROTECTED] off\nREM this is a bat";
}
else {
- $ext = 'sh';
- $shebang = '#!/bin/sh';
+ $ext = 'sh';
+ $shebang = '#!/bin/sh';
}
$file .= ".$ext";
