dupemerge: sort incumbent inodes too
authorZygo Blaxell <zblaxell@faye.furryterror.org>
Wed, 6 Jan 2010 16:57:42 +0000 (11:57 -0500)
committerZygo Blaxell <zblaxell@waya.furryterror.org>
Sat, 9 Jan 2010 02:22:02 +0000 (21:22 -0500)
faster-dupemerge

index 5069297630ee8b5d15b930f1a1eedc29debe07b9..8df7885878b2085bb2cfc8b61e05566c239225b0 100755 (executable)
@@ -335,7 +335,7 @@ hash_file:
 
                        my $incumbent_list = ($hash_to_inode{$digest} ||= []);
                        my $incumbent_matched = 0;
-                       for my $incumbent (@$incumbent_list) {
+                       for my $incumbent (sort @$incumbent_list) {
                                print STDERR "\t\tInodes $incumbent and $candidate have same hash\n" if $debug;
 
                                my $finished = 0;