Detect errors.

hiratara · Sep 7, 2011 · 5e9a2ea · 5e9a2ea
1 parent 6de5e89
commit 5e9a2ea
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/script/backdoor.pl b/script/backdoor.pl
@@ -106,6 +106,8 @@ sub crowl_url {
 		});
 	})->map(sub {
 		my ($lobby, $room_data) = @_;
+		$lobby && $room_data or return;
+
 		my %statuses = map { $_->{room_id} => $_->{room_status} } @$room_data;
 
 		my $schema = Chaberi::Backdoor::Schema->default_schema;