- my(@conn, @imap);
- foreach my $i (0 .. @{ $this->{conn} }-1) {
- my $conn = $this->{conn}->[$i];
- if (!$conn->option("pod_omit")) {
- push @conn, $conn;
- } else {
- # If we don't push anything onto @conn, then the index $i
- # will be meaningless in the loop below, and the
- # references to $rs[$i] will be wrong. Ouch.
- push @conn, undef;
+ 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"), ")");
+ }