diff options
| author | Paul Buetow <paul@buetow.org> | 2011-04-26 18:55:42 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-04-26 18:55:42 +0000 |
| commit | 67855afa02636e06b142c706487c5eb23efc5e8c (patch) | |
| tree | 8e357ebd18427cfc86453e0f7996d7fc88c4f96e /Xerl/Tools | |
| parent | 411f4c0227f280e1a412b825ad82b189017e6795 (diff) | |
added initial fcgi support to all the code files
Diffstat (limited to 'Xerl/Tools')
| -rw-r--r-- | Xerl/Tools/FileIO.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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; |