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

diff --git a/globals.pl b/globals.pl
index 32772df5650db8f91b27408912e48c08dd67be8a..014aec5cbc5b7e782b9719a3c576f738379823d5 100644 (file)
--- 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;