Next Program Repair Shop 55

The Big Loop

     354  foreach $filesz (sort { $b <=> $a } keys %names_by_size)
        ...
     364      if (!defined ($filesz))  # this should never happen, but handle it anyway
     365      {
     366        print "$num_files_this_size files of UNDEF:\n    ",
     367            join ("\n    ", @{$names_by_size{$filesz}}), "\n";
     368        next;
     369      }
     370  

Next Copyright © 2006 M. J. Dominus