Fix perl warning.

diff --git a/long_list.cgi b/long_list.cgi
index 0641dd2293107a8c522e3e58594575d30bfb9f3f..55d2195a7bf1b829a263bfaab7665d1e6f295491 100755 (executable)
--- a/long_list.cgi
+++ b/long_list.cgi
@@ -63,6 +63,7 @@ from bugs,profiles assign,profiles report
 where assign.userid = bugs.assigned_to and report.userid = bugs.reporter and
 bugs.groupset & $::usergroupset = bugs.groupset and";
 
+$::FORM{'buglist'} = "" unless exists $::FORM{'buglist'};
 foreach my $bug (split(/:/, $::FORM{'buglist'})) {
     SendSQL("$generic_query bugs.bug_id = $bug");