diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-08 09:29:56 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-08 09:29:56 +0200 |
| commit | c183faa4d53b6e4f091d6b38397847e55b5d2251 (patch) | |
| tree | e1bae2c84d48cbc41dca573a54fb991a62313916 /index.fpl | |
| parent | 7c8a3f5acce9708684ba5d8bf917cd5503f0204d (diff) | |
perltidy also fast cgi perl scripts
Diffstat (limited to 'index.fpl')
| -rwxr-xr-x | index.fpl | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -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(); } |