Fixed icky infinite loop bug.

diff --git a/globals.pl b/globals.pl
index cbfc87357eae8b7bbfabd83e2724808c58215940..8207497691e7dfc2e75e8bf6fc4d0d6ea950f1c9 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -666,7 +666,7 @@ sub RemoveVotes {
             $whopart);
     my @list;
     while (MoreSQLData()) {
-        my ($name, $count) = (@_);
+        my ($name, $count) = (FetchSQLData());
         push(@list, [$name, $count]);
     }
     if (0 < @list) {
@@ -678,8 +678,9 @@ sub RemoveVotes {
                 $substs{"bugid"} = $id;
                 $substs{"reason"} = $reason;
                 $substs{"count"} = $count;
-                print SENDMAIL PerformSubsts(Param("voteremovedmail"),
-                                             \%substs);
+                my $msg = PerformSubsts(Param("voteremovedmail"),
+                                        \%substs);
+                print SENDMAIL $msg;
                 close SENDMAIL;
             }
         }