From d87c0e16f9b880ce38e1ff6a39f22ba49263aef0 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Tue, 26 Apr 2011 19:13:48 +0000
Subject: code cleanup using perltidy

---
 Xerl/Page/Document.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'Xerl/Page/Document.pm')

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;
-- 
cgit v1.2.3