From 67855afa02636e06b142c706487c5eb23efc5e8c Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Tue, 26 Apr 2011 18:55:42 +0000
Subject: added initial fcgi support to all the code files

---
 Xerl/Page/Configure.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'Xerl/Page/Configure.pm')

diff --git a/Xerl/Page/Configure.pm b/Xerl/Page/Configure.pm
index 7396db9..9429f25 100644
--- a/Xerl/Page/Configure.pm
+++ b/Xerl/Page/Configure.pm
@@ -42,7 +42,10 @@ sub parse($) {
     my Xerl::Tools::FileIO $file =
       Xerl::Tools::FileIO->new( 'path' => $self->get_config() );
 
-    $file->fslurp();
+    if (-1 == $file->fslurp()) {
+    	$self->set_shutdown(1);
+	return undef;
+    }
 
     my $re = qr/^(.+?) *=(.+?) *\n?$/;
 
@@ -84,7 +87,8 @@ sub defaults($) {
               Xerl::Tools::FileIO->new( 'path' => $redirect );
             $file->fslurp();
             my $location = $file->shift();
-            Xerl::Main::Global::REDIRECT($location);
+	    Xerl::Main::Global::REDIRECT( $location );
+	    $self->set_shutdown(1);
         }
         my $alias = $self->get_hostroot() . 'alias:' . $self->get_host();
         if ( -f $alias ) {
-- 
cgit v1.2.3