Whoops; a bad username was causing perl warning messages.

diff --git a/globals.pl b/globals.pl
index 1a6990ac51f1bc73178861610c9cd1532fe46b4d..194d00d0719c9b5e90e6294a7388e7bab54d015a 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -348,7 +348,7 @@ sub DBname_to_id {
     my ($name) = (@_);
     SendSQL("select userid from profiles where login_name = @{[SqlQuote($name)]}");
     my $r = FetchOneColumn();
-    if ($r eq "") {
+    if (!defined $r || $r eq "") {
         return 0;
     }
     return $r;