diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/rddb.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/rddb.pm b/lib/rddb.pm index c12ea26..7767fde 100755 --- a/lib/rddb.pm +++ b/lib/rddb.pm @@ -35,16 +35,16 @@ sub get_token my ($dbh, $username) = @_; my $sth = $dbh->prepare('select PASSWORD from USERS where LOGIN_NAME = ?') - or return ('', 'ERROR', "Database Error: " . $dbh->errstr); + or return (undef, 'ERROR', "Database Error: " . $dbh->errstr); $sth->execute($username) - or return ('', 'ERROR', "Database Error: " . $sth->errstr); + or return (undef, 'ERROR', "Database Error: " . $sth->errstr); my ($token) = $sth->fetchrow_array; $sth->finish(); unless(defined $token) { - return ('', 'ERROR', "user '" . $username . "' not known by rivendell") + return (undef, 'ERROR', "user '" . $username . "' not known by rivendell") } return ($token, 'OK', 'success'); } |