Report the 'lowercased URL' catcher as 404.

[www.jankratochvil.net.git] / resume / resumejankratochvil.pm

diff --git a/resume/resumejankratochvil.pm b/resume/resumejankratochvil.pm
index fee9bf5..0776db0 100644 (file)
--- a/resume/resumejankratochvil.pm
+++ b/resume/resumejankratochvil.pm
@@ -25,6 +25,7 @@ use strict;
 use warnings;
 
 use My::Web;
+use Apache2::Const qw(HTTP_NOT_FOUND);
 
 
 sub handler
@@ -36,6 +37,7 @@ my $W=My::Web->init(
                "content_type"=>"text/html",
                "no_job"=>1,
                );
+$W->{"r"}->status(HTTP_NOT_FOUND);
 My::Web->heading();