Program Repair Shop

Higher-order functions

Both complex blocks look like this:

while (my $first_file = shift @file_list) {

        my (@dups_found) = $first_file;
        my (@not_dups);

        foreach my $filenm (@file_list)
            if (SOME COMPARISON) == 0)
                push @dups_found, $filenm;
            else
                push @not_dups, $filenm;

        push @fc_LoL , \@dups_found
            if @dups_found > 1;

        @file_list = @not_dups;  # continue searching the non-matched files

}
return @fc_LoL;

We should turn this into a function
We can parametrize the SOME COMPARISON part