# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1224164414 -28800
# Node ID 7d1e353520ca6567fe8b1758fb6cd2f6be6f634a
# Parent  704d76b676701ab3b91ca0af6b7620b33becb44f
just return empty users list, when the score link table is missed.

diff -r 704d76b67670 -r 7d1e353520ca Ikariam.pm
--- a/Ikariam.pm	Sat Oct 11 05:21:06 2008 +0800
+++ b/Ikariam.pm	Thu Oct 16 21:40:14 2008 +0800
@@ -58,12 +58,13 @@
     my $status = gunzip \$res->content => \$c 
         or die "gunzip failed: $GunzipError\n";
 
+    my %users;
     my $html = HTML::TagParser->new($c);
+    my ($table) = $html->getElementsByAttribute("class", "table01");
+    return %users if(!defined($table));
 
-    my ($table) = $html->getElementsByAttribute("class", "table01");
     my @elems = getElementsByTagName($table, "tr");
 
-    my %users;
     foreach my $elem (@elems) {
         my $e;
         my %user;