From 27ab4a8d72162df6a62a5d4526db342326f90167 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Fri, 22 Oct 1999 01:19:48 +0000
Subject: Fix perl warning.

---
 sanitycheck.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sanitycheck.cgi')

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index 0f89b2543..6619c85d3 100755
--- 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");
-- 
cgit v1.2.3-24-g4f1b