From 70d77267d95e95942fb5030fa930ed442cfe2a7f Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Tue, 9 May 2000 01:23:55 +0000
Subject: fix warnings on DBID_to_real_or_loginname. thanks to
 endico@mozilla.org

---
 globals.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/globals.pl b/globals.pl
index 32772df56..014aec5cb 100644
--- a/globals.pl
+++ b/globals.pl
@@ -550,7 +550,7 @@ sub DBID_to_real_or_loginname {
     my ($id) = (@_);
     SendSQL("SELECT login_name,realname FROM profiles WHERE userid = $id");
     my ($l, $r) = FetchSQLData();
-    if ($r eq "") {
+    if (!defined $r || $r eq "") {
         return $l;
     } else {
         return "$l ($r)";
@@ -562,7 +562,7 @@ sub DBID_to_name {
     if (!defined $::cachedNameArray{$id}) {
         SendSQL("select login_name from profiles where userid = $id");
         my $r = FetchOneColumn();
-        if ($r eq "") {
+        if (!defined $r || $r eq "") {
             $r = "__UNKNOWN__";
         }
         $::cachedNameArray{$id} = $r;
-- 
cgit v1.2.3-24-g4f1b