summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Makefile1
-rwxr-xr-xindex.fpl13
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();
}