Last patch didn't work -- perl doesn't like the "scaler" function.

diff --git a/buglist.cgi b/buglist.cgi
index dbf1197c98ae5aa8f7f3a78665a62e5c87170f02..07e05900fa68ef3f25260b377b9906106bfae242 100755 (executable)
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -771,7 +771,7 @@ if ($::usergroupset ne '0' && $buggroupset =~ /^\d*$/) {
         $knum++;
     }
     my @statuskeys = keys %statushash;
-    if (scaler(@statuskeys) == 1) {
+    if (1 == @statuskeys) {
         if (defined $statushash{'RESOLVED'}) {
             print "
 <INPUT TYPE=radio NAME=knob VALUE=verify>