Fix perl warning.

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index 0f89b2543a4e621a8db4dd4ec5b1739f613dab87..6619c85d34ef7e32dbdc0fbc67cd48ff4e4d2ee8 100755 (executable)
--- a/sanitycheck.cgi
+++ b/sanitycheck.cgi
@@ -87,7 +87,7 @@ while (my $bit = FetchOneColumn()) {
     
 SendSQL("select sum(bit) from groups where isbuggroup != 0");
 my $buggroupset = FetchOneColumn();
-if ($buggroupset eq "") {
+if (!defined $buggroupset || $buggroupset eq "") {
     $buggroupset = 0;
 }
 SendSQL("select bug_id, groupset from bugs where groupset & $buggroupset != groupset");