Program Repair Shop

Before and After

Before:

      foreach $md5sum (keys %file_name_by_md5sum)
      {
        push @md5_LoL , [ @{$file_name_by_md5sum{$md5sum}} ]
            if ( scalar  (@{$file_name_by_md5sum{$md5sum}}) > 1);
            # do NOT push single file lists, there's nothing to match!

print STDERR "jsjvv: md5sum found " .

            scalar  (@{$file_name_by_md5sum{$md5sum}}) . " matches\n"
      if ($verbose1) && ( scalar  (@{$file_name_by_md5sum{$md5sum}}) > 1);

After:

      foreach $md5sum (keys %file_name_by_md5sum)
      {
        my @files = @{$file_name_by_md5sum{$md5sum}};
        if (@files > 1) {
          # do NOT push single file lists, there's nothing to match!
          push @md5_LoL , \@files;
          verbose "jsjvv: md5sum found " . @files . " matches\n";
        }
      }

Don't you agree that that is a big improvement?