perltidy also fast cgi perl scripts

2 files changed, 8 insertions, 6 deletions

diff --git a/Makefile b/Makefile
index 1172a39..1fd9f8d 100644
--- a/Makefile
+++ b/Makefile
@@ -15,6 +15,7 @@ replace:
 		w .tmp" {} && mv -f .tmp {}' \;
 	chmod 755 index.pl
 perltidy:
+	find . -name \*.fpl | xargs perltidy -b 
 	find . -name \*.pl | xargs perltidy -b 
 	find . -name \*.pm | xargs perltidy -b 
 	find . -name \*.bak | xargs rm -f
diff --git a/index.fpl b/index.fpl
index 3ac017c..11be5fc 100755
--- a/index.fpl
+++ b/index.fpl
@@ -10,11 +10,12 @@ use Socket;
 use Sys::Hostname;
 
 my $host = hostname();
-my $config = -e "xerldev-$host.conf" ? "xerldev-$host.conf" : (
-  -e "xerl-$host.conf" ? "xerl-$host.conf" : 'config.conf'
-);
+my $config =
+  -e "xerldev-$host.conf"
+  ? "xerldev-$host.conf"
+  : ( -e "xerl-$host.conf" ? "xerl-$host.conf" : 'config.conf' );
 
-while (FCGI::accept >= 0) {
-	my Xerl $xerl = Xerl->new( config => $config );
-	$xerl->run();
+while ( FCGI::accept >= 0 ) {
+    my Xerl $xerl = Xerl->new( config => $config );
+    $xerl->run();
 }