Mercurial > eagle-eye

changeset 141:0da6658697df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed the param of islands
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 31 Oct 2008 10:52:52 +0800
parents 124fc7abda39
children 9b8aa30a532c
files scan.pl
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scan.pl	Fri Oct 31 10:44:28 2008 +0800
+++ b/scan.pl	Fri Oct 31 10:52:52 2008 +0800
@@ -93,6 +93,7 @@
     $i->login;
     my $cities = $i->check;
     foreach my $cityId (keys(%$cities)) {
+        printf("%s %s\n", $cities->{$cityId}->{island}->{x},  $cities->{$cityId}->{island}->{y});
         my @islands = $i->viewWorldMap( $cities->{$cityId}->{island}->{x},  $cities->{$cityId}->{island}->{y});
         saveIslands(@islands);
     }
@@ -102,7 +103,7 @@
 }
 
 sub saveIslands {
-    my @islands = shift;
+    my @islands = @_;
 
     foreach my $h_island (@islands)
     {