History | View | Annotate | Download (267 Bytes)
#!/usr/bin/perl -W
my $line;
$line = `pwd`;
if($line =~ /linefollowing/igs) {
print "Cannot modify linefollow code from linefollow\n";
} else {
`rm lineFollow.*`;
`rm lineDrive.*`;
`cp ../linefollowing/lineFollow.* .`;
`cp ../linefollowing/lineDrive.* .`;
}