# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1225487787 -28800
# Node ID 4b5e1d3a5198e276d780e26273410def409e3f67
# Parent  ba7a805b3fe44bff8be7dc8bd1347f0203691128
fixed a typo.

diff -r ba7a805b3fe4 -r 4b5e1d3a5198 warfare.pl
--- 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) {