root / trunk / code / projects / traffic_navigation / update_linefollow.pl @ 1928
History | View | Annotate | Download (274 Bytes)
1 |
#!/usr/bin/perl -W |
---|---|
2 |
|
3 |
my $line; |
4 |
|
5 |
$line = `pwd`; |
6 |
if($line =~ /linefollowing/igs) { |
7 |
print "Cannot modify linefollow code from linefollow\n"; |
8 |
} #else { |
9 |
# `rm lineFollow.*`; |
10 |
# `rm lineFollow.*`; |
11 |
# `cp ../linefollowing/lineFollow.* .`; |
12 |
# `cp ../linefollowing/lineDrive.* .`; |
13 |
#} |
14 |
|
15 |
|