From c183faa4d53b6e4f091d6b38397847e55b5d2251 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (pluto.buetow.org)" Date: Sun, 8 Sep 2013 09:29:56 +0200 Subject: perltidy also fast cgi perl scripts --- Makefile | 1 + index.fpl | 13 +++++++------ 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(); } -- cgit v1.2.3