summaryrefslogtreecommitdiff
path: root/Xerl.pm
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2011-04-26 19:12:29 +0000
committerPaul Buetow <paul@buetow.org>2011-04-26 19:12:29 +0000
commit4aae3132de0ff117290cdc5a8cebeb5bf467942f (patch)
treeec63493694735a04f7eb345991f15e0f11537750 /Xerl.pm
parent67855afa02636e06b142c706487c5eb23efc5e8c (diff)
s/config/$config/
Diffstat (limited to 'Xerl.pm')
-rw-r--r--Xerl.pm10
1 files changed, 4 insertions, 6 deletions
diff --git a/Xerl.pm b/Xerl.pm
index bade547..2510823 100644
--- a/Xerl.pm
+++ b/Xerl.pm
@@ -56,6 +56,7 @@ sub run($) {
Xerl::Page::Configure->new( config => $self->get_config(), %$request );
$config->parse();
+ return undef if $config->shutdown_exists();
# TODO: Plugin API
unless ( $config->sessionsdisable_exists() ) {
@@ -70,12 +71,14 @@ sub run($) {
Xerl::Page::Parameter->new( config => $config );
$parameter->parse();
+ return undef if $config->shutdown_exists();
if ( $config->document_exists() ) {
my Xerl::Page::Document $document =
Xerl::Page::Document->new( config => $config );
$document->parse();
+ return undef if $config->shutdown_exists();
}
else {
@@ -83,15 +86,10 @@ sub run($) {
Xerl::Page::Templates->new( config => $config );
$templates->parse();
+ return undef if $config->shutdown_exists();
$templates->print($time);
}
-
- # This function gets always called if the scripts ends.
- # The script may also end on another location.
- Xerl::Main::Global::SHUTDOWN();
-
- # Never reach this point
return undef;
}