#!/usr/bin/perl -W

my $line;
my $line2;

$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.* .`;
}

if($line =~ /traffic_navigation/igs) {
	while(</*>) {
		if(/(.*?test)\.c/) {
			`mv $1.c $1.bak`;
		}
	}
}
