Mercurial > eagle-eye

changeset 366:2cfa03edc22e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ignore island we don't know yet
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 01 Mar 2009 11:10:52 +0800
parents 2444685c68c9
children d9d3cdff27c6
files enemy.pl
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/enemy.pl	Sun Mar 01 11:10:32 2009 +0800
+++ b/enemy.pl	Sun Mar 01 11:10:52 2009 +0800
@@ -31,10 +31,11 @@
             my $city;
             $city->{id} = $target->id;
             $city->{name} = $target->cityname;
-            $city->{island}->{id} = $island->id;
-            $city->{island}->{x} = $island->x;
-            $city->{island}->{y} = $island->y;
-
+            if(defined($island)) {
+                $city->{island}->{id} = $island->id;
+                $city->{island}->{x} = $island->x;
+                $city->{island}->{y} = $island->y;
+            }
             push (@cities, $city);
         }
     }
@@ -108,6 +109,7 @@
     printf("\nCities\n");
     foreach my $city ($u->cities) {
         my $island = Ikariam::Island->retrieve($city->island);
+        next if(!defined($island));
 
         printf("Name: %s [%s:%s]\n", $city->cityname,  $island->x, $island->y);
         if(defined($city->status)) {