diff options
Diffstat (limited to 'Xerl/Tools/FileIO.pm')
| -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; |