diff --git a/www/index.pl b/www/index.pl index b4de51c..06b551b 100755 --- a/www/index.pl +++ b/www/index.pl @@ -611,7 +611,7 @@ TUWF::get '/browse/search' => sub { # Redirect if we have an exact match my @sectsql = length $sect ? ('AND section =', \$sect) : (); my $man = length $name && tuwf->dbRowi('SELECT name, section FROM mans WHERE name =', \$name, @sectsql); - return tuwf->resRedirect("/man/$man->{name}".(length $sect ? ".$man->{section}" : ''), 'temp') if length $man->{name}; + return tuwf->resRedirect("/man/$man->{name}".(length $sect ? ".$man->{section}" : ''), 'temp') if $man && length $man->{name}; # Otherwise, do case-insensitive glob search my $nameq = escape_like(lc $name) =~ tr/?*/_%/r;