Whoops; a bad username was causing perl warning messages.

7cb4f97e · terry%netscape.com · 22b55f1b · 7cb4f97e
Commit 7cb4f97e authored Sep 16, 1998 by terry%netscape.com
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

globals.pl globals.pl +1 -1

No files found.
--- 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;