Bug 373492: Data in data/mining/* is corrupted - Patch by Frédéric Buclin <LpSolit@gmail.com> r=mkanat r=gerv a=mkanat

1 files changed, 5 insertions, 2 deletions

diff --git a/collectstats.pl b/collectstats.pl
index 3b6344b37..7bc2b6174 100755
--- 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;