Fix deletehost return code.

git-svn-id: file:///home/svn/build-farm/trunk@788 1e5ffdc8-eadd-0310-9daa-9cb4117fe24b

diff --git a/hostdb.pm b/hostdb.pm
index 20d21bedf5950da22599144686398064e89272f2..16a01072afc9e2d137fab94588674870428d94e4 100644 (file)
--- a/hostdb.pm
+++ b/hostdb.pm
@@ -56,7 +56,9 @@ sub deletehost($$)
        
        my $sth = $self->{dbh}->prepare("DELETE FROM host WHERE name = ?");
        
-       return $sth->execute($name);
+       my $ret = $sth->execute($name);
+       
+       return ($ret == 1);
 }
 
 sub hosts($)