code cleanup using perltidy

1 files changed, 6 insertions, 5 deletions

diff --git a/Xerl/Page/Document.pm b/Xerl/Page/Document.pm
index 13a8254..2ca9f10 100644
--- a/Xerl/Page/Document.pm
+++ b/Xerl/Page/Document.pm
@@ -45,7 +45,7 @@ sub parse($) {
 
     my $document = $config->get_document();
     my ($filename) = $document =~ m#([^/]+)$#;
-    my ($postfix) = $document =~ /\.(.+)$/;
+    my ($postfix)  = $document =~ /\.(.+)$/;
     my $path;
 
     print 'Content-Type: ';
@@ -62,10 +62,11 @@ sub parse($) {
 
     my Xerl::Tools::FileIO $io = Xerl::Tools::FileIO->new( path => $path );
 
-    if (-1 == $io->fslurp()) {
-	$config->set_shutdown(1);
-    } else {
-    	$io->print();
+    if ( -1 == $io->fslurp() ) {
+        $config->set_shutdown(1);
+    }
+    else {
+        $io->print();
     }
 
     return undef;