fix warnings on DBID_to_real_or_loginname. thanks to endico@mozilla.org

1 files 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;