diff options
Diffstat (limited to 'Xerl/Page/Document.pm')
| -rw-r--r-- | Xerl/Page/Document.pm | 11 |
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; |