# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1228154930 -28800
# Node ID c1333052a4ede05928d1a826ff8d1b9e1a163bf3
# Parent  2590bcd517a562534579ae0e50d4eab7fb70d24c
fixed a typo

diff -r 2590bcd517a5 -r c1333052a4ed agent.pl
--- a/agent.pl	Mon Dec 01 20:54:23 2008 +0800
+++ b/agent.pl	Tue Dec 02 02:08:50 2008 +0800
@@ -70,7 +70,7 @@
 sub is_safehouse_enough {
     my ($self, $city) = @_;
     return 0 if(!defined($city->{buildings}->{safehouse}));
-    return 1 if($$city->{buildings}->{townHall} >= 20);
+    return 1 if($city->{buildings}->{townHall} >= 20);
 
     # build the higgest safehouse.
     # maybe we should have more then 4 towns, then we consider that we should upgrade safehouse at level 20.