Fix attempts to resolve man pages without name

A bot triggered 'GET /.env', resulting in a lookup on section='env' but
no name. Slow and useless...
This commit is contained in:
Yorhel 2020-10-16 12:49:47 +02:00
parent eecc8e798c
commit 91b43d220b

View file

@ -1056,7 +1056,7 @@ sub dbManPrefName {
my $man = $s->dbManPref(%o, name => $name);
return ($man, '') if $man;
return (undef, '') if $name !~ s/\.([^.]+)$//;
return (undef, '') if $name !~ s/\.([^.]+)$// || !length $name;
my $section = $1;
$man = $s->dbManPref(%o, name => $name, section => $section);
return ($man, $section) if $man;