Bug 373492: Data in data/mining/* is corrupted - Patch by Frédéric Buclin <LpSolit...

diff --git a/collectstats.pl b/collectstats.pl
index 3b6344b3775500946c88b0ac22f600dade65a098..7bc2b6174d67c004963c50d02406a3cb8d8415da 100755 (executable)
--- a/collectstats.pl
+++ b/collectstats.pl
@@ -264,8 +264,11 @@ sub get_old_data {
             $recreate = 1;
             my @new_cols = ($columns[0], @statuses, @resolutions);
             if (scalar(@columns) == scalar(@new_cols)) {
-                my ($removed, $added) = diff_arrays(\@columns, \@new_cols);
-                last if (!scalar(@$removed) && !scalar(@$added));
+                my $identical = 1;
+                for (0 .. $#columns) {
+                    $identical = 0 if ($columns[$_] ne $new_cols[$_]);
+                }
+                last if $identical;
             }
         }
         next unless $recreate;