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 |
|