diff options
Diffstat (limited to 'Xerl/Page/Document.pm')
| -rw-r--r-- | Xerl/Page/Document.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Xerl/Page/Document.pm b/Xerl/Page/Document.pm index 89ae788..b7cafa3 100644 --- a/Xerl/Page/Document.pm +++ b/Xerl/Page/Document.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # @@ -17,9 +17,9 @@ use Xerl::Main::Global; use Xerl::Setup::Configure; use Xerl::Tools::FileIO; -sub parse($) { - my Xerl::Page::Document $self = $_[0]; - my Xerl::Setup::Configure $config = $self->get_config(); +sub parse { + my $self = $_[0]; + my $config = $self->get_config(); return undef unless $config->document_exists(); @@ -40,7 +40,7 @@ sub parse($) { . "/htdocs/$document"; } - my Xerl::Tools::FileIO $io = Xerl::Tools::FileIO->new( path => $path ); + my $io = Xerl::Tools::FileIO->new( path => $path ); if ( -1 == $io->fslurp() ) { $config->set_finish_request(1); |