Mercurial > eagle-eye

comparison scan.pl @ 206:b7af307a222d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added build safehouse
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 03 Nov 2008 17:52:28 +0800
parents 0da6658697df
children 541bc1fba446
comparison
equal deleted inserted replaced
205:d9f17bcbf1f1 206:b7af307a222d
105 sub saveIslands { 105 sub saveIslands {
106 my @islands = @_; 106 my @islands = @_;
107 107
108 foreach my $h_island (@islands) 108 foreach my $h_island (@islands)
109 { 109 {
110 printf("checking island %d\n", $h_island->{id}); 110 # printf("checking island %d\n", $h_island->{id});
111 111
112 my $island; 112 my $island;
113 if($island = Ikariam::Island->retrieve($h_island->{id})) { 113 if($island = Ikariam::Island->retrieve($h_island->{id})) {
114 foreach my $i (keys(%$h_island)) { 114 foreach my $i (keys(%$h_island)) {
115 $island->set($i => $h_island->{$i}); 115 $island->set($i => $h_island->{$i});