summaryrefslogtreecommitdiff
path: root/Xerl/Page/Parameter.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Xerl/Page/Parameter.pm')
-rw-r--r--Xerl/Page/Parameter.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/Xerl/Page/Parameter.pm b/Xerl/Page/Parameter.pm
index 2100323..e751de2 100644
--- a/Xerl/Page/Parameter.pm
+++ b/Xerl/Page/Parameter.pm
@@ -46,13 +46,12 @@ sub parse($) {
if ( $config->href_exists() ) {
print "Location: ", $config->get_href(), "\n\n";
- Xerl::Main::Global::SHUTDOWN();
-
+ config->set_shutdown(1);
}
elsif ( $config->env_exists() ) {
print "Content-Type: text/plain\n\n";
print "$_=", $ENV{$_}, "\n" for keys %ENV;
- Xerl::Main::Global::SHUTDOWN();
+ config->set_shutdown(1);
}
if ( $config->devel_exists() ) {
@@ -63,7 +62,7 @@ sub parse($) {
if ( $config->conf_exists() ) {
print "Content-Type: text/plain\n\n";
print "$_=", $config->{$_}, "\n" for keys %$config;
- Xerl::Main::Global::SHUTDOWN();
+ config->set_shutdown(1);
}
return $self;