Example client: Fix secrete command issue

This commit is contained in:
Petr Baudis 2011-12-23 17:57:08 +01:00
parent df066955cd
commit 11511840bd

View file

@ -137,7 +137,7 @@ sub take_action($$) {
}
# We unconditionally secrete this pheromone for identification
# by others of our kin.
print $socket "secrete 65536 1\r\n";
print $socket $state->{tick}." secrete 65536 1\r\n";
print $socket "\r\n";
}