From 862679a92e2d853390d84ade4003f3c2e0f13bea Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 7 Sep 2013 18:05:44 +0200
Subject: perltidy

---
 Makefile            | 2 +-
 Xerl.pm             | 1 -
 Xerl/Main/Global.pm | 2 +-
 index.pl            | 7 ++++---
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Makefile b/Makefile
index cbc8d84..1172a39 100644
--- a/Makefile
+++ b/Makefile
@@ -14,7 +14,7 @@ replace:
 	find ./Xerl -name '*.xml' -exec sh -c 'sed -n "s/$(FROM)/$(INTO)/g; \
 		w .tmp" {} && mv -f .tmp {}' \;
 	chmod 755 index.pl
-pidy:
+perltidy:
 	find . -name \*.pl | xargs perltidy -b 
 	find . -name \*.pm | xargs perltidy -b 
 	find . -name \*.bak | xargs rm -f
diff --git a/Xerl.pm b/Xerl.pm
index 648a24d..8844e85 100644
--- a/Xerl.pm
+++ b/Xerl.pm
@@ -65,7 +65,6 @@ sub run($) {
     $parameter->parse();
     return undef if $config->finish_request_exists();
 
-
     if ( $config->document_exists() ) {
         my Xerl::Page::Document $document =
           Xerl::Page::Document->new( config => $config );
diff --git a/Xerl/Main/Global.pm b/Xerl/Main/Global.pm
index 83beb73..bd2b140 100644
--- a/Xerl/Main/Global.pm
+++ b/Xerl/Main/Global.pm
@@ -68,7 +68,7 @@ sub REDIRECT ($) {
 }
 
 sub _HTTP_DESCR ($;$) {
-    my ($status, $infomsg) = @_;
+    my ( $status, $infomsg ) = @_;
 
     $infomsg //= '';
 
diff --git a/index.pl b/index.pl
index f1f5531..1846180 100755
--- a/index.pl
+++ b/index.pl
@@ -9,9 +9,10 @@ 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' );
 
 my Xerl $xerl = Xerl->new( config => $config );
 $xerl->run();
-- 
cgit v1.2.3