# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1225421572 -28800
# Node ID 0da6658697df914ea52a34a4b6f64fd68e47cbd0
# Parent  124fc7abda39a858378bba91a06c532ba82a59ce
fixed the param of islands

diff -r 124fc7abda39 -r 0da6658697df scan.pl
--- 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)
     {