X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/0dee415b1a371573e705c18f09e70c555845e428..072e8bc0a42031722a1c5005ebc6aa304e43c0a8:/PLP/CGI.pm

diff --git a/PLP/CGI.pm b/PLP/CGI.pm
index ee81b37..9b72355 100644
--- a/PLP/CGI.pm
+++ b/PLP/CGI.pm
@@ -32,6 +32,11 @@ sub init {
 		$ENV{SCRIPT_FILENAME} = $path;
 		$ENV{SCRIPT_NAME} = $rel;
 	}
+	elsif (not -f $ENV{SCRIPT_FILENAME}) {
+		print STDERR "PLP: Not found: $ENV{SCRIPT_FILENAME} ($ENV{REQUEST_URI})\n";
+		PLP::error(undef, 404);
+		return;
+	}
 
 	$ENV{"PLP_$_"} = $ENV{"SCRIPT_$_"} for qw/NAME FILENAME/;