Swap tabs for spaces

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index d558d5c..76bb65d 100644 (file)
--- a/perl/FCGI.PL
+++ b/perl/FCGI.PL
@@ -47,17 +47,17 @@ use constant AUTHORIZER => 2;
 use constant FILTER => 3;
 
 %FCGI::rolenames = (RESPONDER, "RESPONDER",
-                     AUTHORIZER, "AUTHORIZER",
-                     FILTER, "FILTER",
-                    );
+              AUTHORIZER, "AUTHORIZER",
+              FILTER, "FILTER",
+             );
 
 # This only works on Unix; anyone familiar with Windows is welcome
 # to give a hand here
 sub IsFastCGI {
     my ($req) = @_;
     $req->{isfastcgi} =
-       (!defined getpeername shift->{listen_sock}) && $! == ENOTCONN
-       unless exists $req->{isfastcgi};
+    (!defined getpeername shift->{listen_sock}) && $! == ENOTCONN
+    unless exists $req->{isfastcgi};
     return $req->{isfastcgi};
 }
 
@@ -71,22 +71,22 @@ sub read_nv_len {
     return undef unless read $stream, $buf, 1, 0;
     my ($len) = unpack("C", $buf);
     if ($len & 0x80) {
-       $buf = pack("C", $len & 0x7F);
-       return undef unless read $stream, $buf, 3, 1;
-       $len = unpack("N", $buf);
+    $buf = pack("C", $len & 0x7F);
+    return undef unless read $stream, $buf, 3, 1;
+    $len = unpack("N", $buf);
     }
     $len;
 }
 
 sub RequestX {
     my $self = {
-       in => shift,
-       out => shift,
-       err => shift,
-       env => shift,
-       socket => shift,
-       flags => shift,
-       last => 0,
+    in => shift,
+    out => shift,
+    err => shift,
+    env => shift,
+    socket => shift,
+    flags => shift,
+    last => 0,
     };
     open $self->{listen_sock}, "<&=0";
     bless $self, "FCGI";
@@ -98,21 +98,21 @@ sub Accept {
     my ($req) = @_;
 
     unless ($req->IsFastCGI()) {
-       return -1 if $run_once;
+    return -1 if $run_once;
 
-       $run_once = 1;
-       return 0;
+    $run_once = 1;
+    return 0;
     }
     $req->Finish();
     $req->{socket} = gensym();
     if ($req->{last} || !accept($req->{socket}, $req->{listen_sock})) {
-       $req->{error} = "accept";
-       return -1;
+    $req->{error} = "accept";
+    return -1;
     }
     my ($type, $id, $body) = $req->read_record();
     if ($type != BEGIN_REQUEST) {
-       $req->{error} = "begin request";
-       return -1;
+    $req->{error} = "begin request";
+    return -1;
     }
     my ($role, $flags) = unpack("nC", $body);
     $req->{role} = $role;
@@ -124,11 +124,11 @@ sub Accept {
     my $param = FCGI::Stream->new($req, PARAMS);
     my ($nlen, $vlen);
     while (defined($nlen = read_nv_len($param)) &&
-          defined($vlen = read_nv_len($param))) {
-       my ($name, $val);
-       read $param, $name, $nlen;
-       read $param, $val, $vlen;
-       $req->{env}{$name} = $val;
+       defined($vlen = read_nv_len($param))) {
+    my ($name, $val);
+    read $param, $name, $nlen;
+    read $param, $val, $vlen;
+    $req->{env}{$name} = $val;
     }
     $req->Bind;
     $req->{accepted} = 1;
@@ -166,10 +166,10 @@ sub Finish {
     my ($req) = @_;
     return unless $req->{accepted};
     if ($req->{bound}) {
-       $req->UndoBindings();
-       # apparently these are harmful
-       # close ${$req->{out}};
-       # close ${$req->{err}};
+    $req->UndoBindings();
+    # apparently these are harmful
+    # close ${$req->{out}};
+    # close ${$req->{err}};
     }
     $req->{accepted} = 0;
 }
@@ -196,16 +196,16 @@ sub read_record {
 sub read {
     my ($self, $rtype, $len) = @_;
     while (length $self->{buf} < $len) {
-       my ($type, $id, $buf) = $self->read_record();
-       return undef unless defined $buf;
-       if ($type != $rtype) {
-           $self->{error} = "unexpected stream type";
-           return 0;
-       }
-       $self->{buf} .= $buf;
+    my ($type, $id, $buf) = $self->read_record();
+    return undef unless defined $buf;
+    if ($type != $rtype) {
+        $self->{error} = "unexpected stream type";
+        return 0;
+    }
+    $self->{buf} .= $buf;
     }
     my ($newbuf, $result) = (substr($self->{buf}, $len),
-                            substr($self->{buf}, 0, $len));
+                 substr($self->{buf}, 0, $len));
     $self->{buf} = $newbuf;
     $result;
 }
@@ -224,15 +224,15 @@ sub write_record {
     my ($self, $type, $content, $length) = @_;
     my $offset = 0;
     while ($length > 0) {
-       my $len = $length > 32*1024 ? 32*1024 : $length;
-       my $padlen = (8 - ($len % 8)) % 8;
-       my $templ = "CCnnCxa${len}x$padlen";
-       my $data = pack($templ,
-                       VERSION_1, $type, $self->{id}, $len, $padlen,
-                       substr($content, $offset, $len));
-       syswrite $self->{socket}, $data;
-       $length -= $len;
-       $offset += $len;
+    my $len = $length > 32*1024 ? 32*1024 : $length;
+    my $padlen = (8 - ($len % 8)) % 8;
+    my $templ = "CCnnCxa${len}x$padlen";
+    my $data = pack($templ,
+            VERSION_1, $type, $self->{id}, $len, $padlen,
+            substr($content, $offset, $len));
+    syswrite $self->{socket}, $data;
+    $length -= $len;
+    $offset += $len;
     }
 }
 
@@ -295,13 +295,13 @@ sub Request(;***$*$) {
 sub accept() {
     warn "accept called as a method; you probably wanted to call Accept" if @_;
     if (%FCGI::ENV) {
-       %ENV = %FCGI::ENV;
+    %ENV = %FCGI::ENV;
     } else {
-       %FCGI::ENV = %ENV;
+    %FCGI::ENV = %ENV;
     }
     my $rc = Accept($global_request);
     for (keys %FCGI::ENV) {
-       $ENV{$_} = $FCGI::ENV{$_} unless exists $ENV{$_};
+    $ENV{$_} = $FCGI::ENV{$_} unless exists $ENV{$_};
     }
 
     # not SFIO
@@ -317,8 +317,8 @@ sub finish() {
 
     # not SFIO
     if (tied (*STDIN)) {
-       delete $SIG{__WARN__} if ($SIG{__WARN__} == $warn_handler);
-       delete $SIG{__DIE__} if ($SIG{__DIE__} == $die_handler);
+    delete $SIG{__WARN__} if ($SIG{__WARN__} == $warn_handler);
+    delete $SIG{__DIE__} if ($SIG{__DIE__} == $die_handler);
     }
 
     Finish ($global_request);
@@ -369,14 +369,14 @@ sub READLINE {
 
     $c = $stream->GETC();
     if ($/ eq '') {
-       while ($c eq "\n") {
-           $c = $stream->GETC();
-       }
+    while ($c eq "\n") {
+        $c = $stream->GETC();
+    }
     }
     while (defined $c) {
-       $s .= $c;
-       last if $c eq $l and substr($s, -$len) eq $rs;
-       $c = $stream->GETC();
+    $s .= $c;
+    last if $c eq $l and substr($s, -$len) eq $rs;
+    $c = $stream->GETC();
     }
     $s;
 }
@@ -384,12 +384,12 @@ sub READLINE {
 sub OPEN {
     $_[0]->CLOSE;
     if (@_ == 2) {
-       return open($_[0], $_[1]);
+    return open($_[0], $_[1]);
     } else {
-       my $rc;
-       eval("$rc = open($_[0], $_[1], $_[2])");
-       die $@ if $@;
-       return $rc;
+    my $rc;
+    eval("$rc = open($_[0], $_[1], $_[2])");
+    die $@ if $@;
+    return $rc;
     }
 }
 
@@ -415,7 +415,7 @@ FCGI - Fast CGI module
     my $request = FCGI::Request();
 
     while($request->Accept() >= 0) {
-       print("Content-type: text/html\r\n\r\n", ++$count);
+    print("Content-type: text/html\r\n\r\n", ++$count);
     }
 
 =head1 DESCRIPTION