diff --git a/www/index.pl b/www/index.pl
index 7be242e..1259f33 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -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;