Program Repair Shop

Shelling out

The next section gathers the list of files to compare
The command-line arguments are directories that are searched
The Unix find command does the searching

     300  my $cmd = "find " . join (" ", @ARGV) . " -type f -print |";
     303  open (pipefd, $cmd);
     304  
     306  while (<pipefd>)
     307  {
     310      push @{ $names_by_size{-s $_} }, $_;
     312  }

I bet you think you know what I'm going to say
- If you think so, I bet you're wrong