diff options
| -rw-r--r-- | Makefile | 1 | ||||
| -rwxr-xr-x | index.fpl | 13 |
2 files changed, 8 insertions, 6 deletions
@@ -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 @@ -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(); } |
