From c183faa4d53b6e4f091d6b38397847e55b5d2251 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sun, 8 Sep 2013 09:29:56 +0200
Subject: perltidy also fast cgi perl scripts

---
 index.fpl | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'index.fpl')

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();
 }
-- 
cgit v1.2.3