+
+ while (1) {
+ my @conn;
+ my @idxmap; # maps indexes into conn to global indexes
+ foreach my $i (0 .. @{ $this->{conn} }-1) {
+ my $conn = $this->{conn}->[$i];
+ if ($conn->option("pod_omit")) {
+ #ZOOM::Log::log("pod", "connection $i omitted (",
+ #$conn->option("host"), ")");
+ } else {
+ push @conn, $conn;
+ push @idxmap, $i;
+ #ZOOM::Log::log("pod", "connection $i included (",
+ #$conn->option("host"), ")");
+ }
+ }
+
+ last if @conn == 0;
+ my $i0 = ZOOM::event(\@conn);
+ last if $i0 == 0;
+ my $i = 1+$idxmap[$i0-1];