Next

Program Repair Shop

39

CopyFiles

              my $command = "cp $dir/$file $dir/$NextOut/$file";

• It's easy to make $NextOut into an argument

• The obvious change makes the call back in the main program:

          CopyFiles($dir, $NextOut, @files);

continued...

Next

Copyright © 2002 M. J. Dominus