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/Tools/FileIO.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Xerl/Tools/FileIO.pm')

diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm
index 6117bd0..25da55e 100644
--- a/Xerl/Tools/FileIO.pm
+++ b/Xerl/Tools/FileIO.pm
@@ -60,8 +60,10 @@ sub fslurp($) {
     my Xerl::Tools::FileIO $self = $_[0];
     my $path = SECUREPATH( $self->get_path() );
 
-    Xerl::Main::Global::HTTP( 404, "Not found: $path" )
-      unless -f $path;
+    unless (-f $path) {
+    	Xerl::Main::Global::HTTP( 404, "Not found: $path" );
+	return -1;
+    }
 
     open my $file, $path or Xerl::Main::Global::ERROR( $!, $path, caller() );
     flock $file, 2;
-- 
cgit v1.2.3