From: terry%netscape.com <>
Date: Wed, 16 Sep 1998 05:12:52 +0000 (+0000)
Subject: Whoops; a bad username was causing perl warning messages.
X-Git-Tag: bugzilla-1.3~7
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7cb4f97e7cd232dafc6ce3217a2f82279ee2bc2c;p=thirdparty%2Fbugzilla.git

Whoops; a bad username was causing perl warning messages.
---

diff --git a/globals.pl b/globals.pl
index 1a6990ac51..194d00d071 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;