bug patch

[mike]

--- automake    Mon Aug 13 16:54:31 2001
+++ automake.fixed      Mon Aug 13 16:53:43 2001
@@ -7196,7 +7196,7 @@
     }
 
     local ($one, $two, $three, $four, $i, $max);
-    $max = int (($#lcomm + 1) / 4);
+    $max = int (($#lcomm + 1) / 4) + (($#lcomm + 1) % 4 != 0);
 
     for ($i = 0; $i < $max; ++$i)
     {
@@ -7204,16 +7204,6 @@
        $two = $lcomm[$max + $i];
        $three = $lcomm[2 * $max + $i];
        $four = $lcomm[3 * $max + $i];
-       write;
-    }
-
-    local ($mod) = ($#lcomm + 1) % 4;
-    if ($mod != 0)
-    {
-       $one = $lcomm[$max];
-       $two = ($mod > 1) ? $lcomm[2 * $max] : '';
-       $three = ($mod > 2) ? $lcomm[3 * $max] : '';
-       $four = ($mod > 3) ? $lcomm[4 * $max] : '';
        write;
     }