Next

Program Repair Shop

29

CopyFiles

• I'd like to get rid of $x1 and $x2:

      58        $Tmp = `cp $x1 $x2`;

• This would become:

        system("cp $dir/$file $dir/$NextOut/$file");

• But we need $x1 and $x2 for the following diagnostic line:

      59        print $x1,"\-\>",$x2,"\n";

• At least we can fix the names:

                my $s = "$dir/$file";
                my $d = "$dir/$NextOut/$file";

                system("cp $s $d");

• Use Sensible Variable Names is so well-known I shouldn't insult you by mentioning it

• $s and $d may not be great, but they must be better than $x1 and $x2.

Next

Copyright © 2002 M. J. Dominus