Mercurial > eagle-eye

diff warfare.pl @ 157:4b5e1d3a5198

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed a typo.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sat, 01 Nov 2008 05:16:27 +0800
parents ba7a805b3fe4
children 8afd380c20ac
line wrap: on
line diff
--- a/warfare.pl	Sat Nov 01 05:13:17 2008 +0800
+++ b/warfare.pl	Sat Nov 01 05:16:27 2008 +0800
@@ -61,7 +61,7 @@
 sub locateVictim {
     my ($self, $city, $x, $y, $tradegood) = @_;
 
-    my $user = Ikariam::User->search('name' => $::user);
+    my $user = Ikariam::User->retrieve('name' => $::user);
 
     my @cities = Ikariam::Cities->search_sheeps(($x + 6), ($x - 6), ($y + 6), ($y - 6));
 CITY: foreach my $city (@cities) {