Program Repair Shop

File sizes

If a file has a different size than all other files, it must have different contents
So the program makes an initial pass to discard all such files:

     325  # jsj: DELETE THE SORT
     326  foreach $filesz (sort { $b <=> $a } keys %names_by_size)
     327  {
     328      my $num_files_this_size = scalar (@{$names_by_size{$filesz}});
     329      if ($num_files_this_size < 2)
     330      {
     331        # # print "... 1 file, sz $filesz, name \"@{$names_by_size{$filesz}}\"\n";
     332        delete $names_by_size{$filesz};
     333      }
     334      else
     335      {
     336        $filecount += $num_files_this_size;
     337      }
     338  }

I wonder why jsj put in the comment that said DELETE THE SORT
- rather than just deleting the sort?