Program Repair Shop

The big loop

With our changes to the comparison functions, this becomes;

if ($filesz > 1024)

        my (@name_list) = compare_by_first_block (1024,
                @{$names_by_size{$filesz}});

        my @md5_LoL;

        if ($num_files_this_size > 20)
            for $array_ref (@name_list)
                push @md5_LoL, compare_by_md5_sum (@$array_ref);
        else
            @md5_LoL = @name_list;  # skip md5 sum step

        while ($array_ref = shift (@md5_LoL))
            push @fc_LoL, compare_by_fc (@$array_ref);

else

        @fc_LoL = compare_by_first_block ($filesz, @{$names_by_size{$filesz}});