diff options
| author | terry%netscape.com <> | 1998-09-16 07:12:52 +0200 |
|---|---|---|
| committer | terry%netscape.com <> | 1998-09-16 07:12:52 +0200 |
| commit | 7cb4f97e7cd232dafc6ce3217a2f82279ee2bc2c (patch) | |
| tree | cb63eda6f51a7a41792eb8373815ccf614994138 | |
| parent | 22b55f1b2ac1504a36a9f6b96dc86266471ddb1e (diff) | |
| download | bugzilla-7cb4f97e7cd232dafc6ce3217a2f82279ee2bc2c.tar.gz bugzilla-7cb4f97e7cd232dafc6ce3217a2f82279ee2bc2c.tar.xz | |
Whoops; a bad username was causing perl warning messages.
| -rw-r--r-- | globals.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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; |