From 7cb4f97e7cd232dafc6ce3217a2f82279ee2bc2c Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Wed, 16 Sep 1998 05:12:52 +0000
Subject: Whoops; a bad username was causing perl warning messages.

---
 globals.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/globals.pl b/globals.pl
index 1a6990ac5..194d00d07 100644
--- 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;
-- 
cgit v1.2.3-24-g4f1b