perltidy

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();