reindent remaining 4-space+tab@8 code

[perl/plp/.git] / PLP / Fields.pm

diff --git a/PLP/Fields.pm b/PLP/Fields.pm
index 3dda7d3937b8bca0097820e2f80a800cc0625727..2a4190c062dd845c4e9c1f341a157799ffa3c0c9 100644 (file)
--- a/PLP/Fields.pm
+++ b/PLP/Fields.pm
@@ -6,63 +6,63 @@ use strict;
 # and %header in PLP::Script. Also generates %cookie immediately.
 sub doit {
 
-    # %get
-    
-    my $get = \%PLP::Script::get;
-    if (length $ENV{QUERY_STRING}){
-       for (split /[&;]/, $ENV{QUERY_STRING}) {
-           my @keyval = split /=/, $_, 2;
-           PLP::Functions::DecodeURI(@keyval);
-           $get->{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
-           push @{ $get->{ '@' . $keyval[0] } }, $keyval[1];
-       }
-    }
-
-    # %post
-
-    tie %PLP::Script::post, 'PLP::Tie::Delay', 'PLP::Script::post', sub {
-       my %post;
-       my $post;
-       
-       return \%post if $ENV{CONTENT_TYPE} !~
-           m!^(?:application/x-www-form-urlencoded|$)!;
-       
-       if ($ENV{MOD_PERL}) {
-           $post = Apache->request->content;
-       } else {
-           read *STDIN, $post, $ENV{CONTENT_LENGTH};
-       }
-       
-       return \%post unless defined $post and length $post;
+       # %get
        
-       for (split /&/, $post) {
-           my @keyval = split /=/, $_, 2;
-           PLP::Functions::DecodeURI(@keyval);
-           $post{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
-           push @{ $post{ '@' . $keyval[0] } }, $keyval[1];
+       my $get = \%PLP::Script::get;
+       if (length $ENV{QUERY_STRING}){
+               for (split /[&;]/, $ENV{QUERY_STRING}) {
+                       my @keyval = split /=/, $_, 2;
+                       PLP::Functions::DecodeURI(@keyval);
+                       $get->{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
+                       push @{ $get->{ '@' . $keyval[0] } }, $keyval[1];
+               }
        }
-       
-       return \%post;
-    };
-
-    # %fields
-
-    tie %PLP::Script::fields, 'PLP::Tie::Delay', 'PLP::Script::fields', sub {
-       return { %PLP::Script::get, %PLP::Script::post };
-    };
-
-    # %header
-
-    tie %PLP::Script::header, 'PLP::Tie::Headers';
-
-    # %cookie
 
-    if (defined $ENV{HTTP_COOKIE} and length $ENV{HTTP_COOKIE}) {
-       for (split /; ?/, $ENV{HTTP_COOKIE}) {
-           my @keyval = split /=/, $_, 2;
-           $PLP::Script::cookie{$keyval[0]} ||= $keyval[1];
+       # %post
+
+       tie %PLP::Script::post, 'PLP::Tie::Delay', 'PLP::Script::post', sub {
+               my %post;
+               my $post;
+               
+               return \%post if $ENV{CONTENT_TYPE} !~
+                       m!^(?:application/x-www-form-urlencoded|$)!;
+               
+               if ($ENV{MOD_PERL}) {
+                       $post = Apache->request->content;
+               } else {
+                       read *STDIN, $post, $ENV{CONTENT_LENGTH};
+               }
+               
+               return \%post unless defined $post and length $post;
+               
+               for (split /&/, $post) {
+                       my @keyval = split /=/, $_, 2;
+                       PLP::Functions::DecodeURI(@keyval);
+                       $post{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
+                       push @{ $post{ '@' . $keyval[0] } }, $keyval[1];
+               }
+               
+               return \%post;
+       };
+
+       # %fields
+
+       tie %PLP::Script::fields, 'PLP::Tie::Delay', 'PLP::Script::fields', sub {
+               return { %PLP::Script::get, %PLP::Script::post };
+       };
+
+       # %header
+
+       tie %PLP::Script::header, 'PLP::Tie::Headers';
+
+       # %cookie
+
+       if (defined $ENV{HTTP_COOKIE} and length $ENV{HTTP_COOKIE}) {
+               for (split /; ?/, $ENV{HTTP_COOKIE}) {
+                       my @keyval = split /=/, $_, 2;
+                       $PLP::Script::cookie{$keyval[0]} ||= $keyval[1];
+               }
        }
-    }
 }
 
 1;