validator/httpd/cgi-bin check,1.327,1.328

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv8742

Modified Files:
	check 
Log Message:
Whitespace police, reformat.


Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.327
retrieving revision 1.328
diff -u -d -r1.327 -r1.328
--- check	10 May 2004 01:41:52 -0000	1.327
+++ check	10 May 2004 13:32:07 -0000	1.328
@@ -263,15 +263,13 @@
 ###############################################################################
 
 my $T = HTML::Template->new(
-			    filename =>
-			    File::Spec->catfile($CFG->{Template_Path}, 'result.tmpl'),
-			    die_on_bad_params => FALSE,
-			   );
+  filename          => File::Spec->catfile($CFG->{Template_Path}, 'result.tmpl'),
+  die_on_bad_params => FALSE,
+);
 my $E = HTML::Template->new(
-			    filename =>
-			    File::Spec->catfile($CFG->{Template_Path}, 'fatal-error.tmpl'),
-			    die_on_bad_params => FALSE,
-			   );
+  filename          => File::Spec->catfile($CFG->{Template_Path}, 'fatal-error.tmpl'),
+  die_on_bad_params => FALSE,
+);
 
 $T->param(cfg_home_page => $CFG->{Home_Page});
 
@@ -640,7 +638,7 @@
                       {name => 'SP_CHARSET_FIXED', value => &ent($ENV{SP_CHARSET_FIXED})},
                       {name => 'SP_ENCODING',      value => &ent($ENV{SP_ENCODING})},
                       {name => 'SP_BCTF',          value => &ent($ENV{SP_BCTF})},
-  		               ],
+                     ],
            );
 
   #FIXME: This needs a UI and testing!
@@ -1719,10 +1717,7 @@
     substr $File->{Content}->[0], ($File->{BOM} ? 3 : 0); # remove BOM
 
   for (@{$File->{Content}}) {
-    push @source, {
-		   file_source_i => $line,
-		   file_source_line => ent $_,
-		  };
+    push @source, {file_source_i => $line, file_source_line => ent $_};
     $line++;
   }
   return \@source;

Received on Monday, 10 May 2004 09:33:28 UTC