From 1c872700aed472f8411c8b4fb6fb72fdb5986097 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 18 Jul 2006 13:45:36 +0000 Subject: [PATCH] Towards index-preserving @conn winnowing. --- lib/ZOOM/Pod.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/ZOOM/Pod.pm b/lib/ZOOM/Pod.pm index d532b40..e338459 100644 --- a/lib/ZOOM/Pod.pm +++ b/lib/ZOOM/Pod.pm @@ -1,4 +1,4 @@ -# $Id: Pod.pm,v 1.14 2006-07-18 11:43:55 mike Exp $ +# $Id: Pod.pm,v 1.15 2006-07-18 13:45:36 mike Exp $ package ZOOM::Pod; @@ -277,8 +277,9 @@ sub wait { my $res = 0; - my @conn; - foreach my $conn (@{ $this->{conn} }) { + my(@conn, @imap); + foreach my $i (0 .. @{ $this->{conn} }-1) { + my $conn = $this->{conn}->[$i]; if (!$conn->option("pod_omit")) { push @conn, $conn; } else { -- 1.7.10.4