changeset 157:4b5e1d3a5198

fixed a typo.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sat, 01 Nov 2008 05:16:27 +0800
parents ba7a805b3fe4
children e2956846ee98 eff35293a058 a60cf4d1a6dd
files warfare.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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) {