+
+ my @conn;
+ foreach my $conn (@{ $this->{conn} }) {
+ 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 ((my $i = ZOOM::event(\@conn)) != 0) {
+ my $conn = $conn[$i-1];