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