Update of /cvsroot/popfile/engine/Services
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7048/Services
Modified Files:
IMAP.pm
Log Message:
Clear stored message hashes before we scan each folder. This fixes a bug that would rear its ugly head when an exception was thrown while scanning the folders. The stored hashes weren't cleared in that case.
Index: IMAP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** IMAP.pm 3 Feb 2006 10:41:46 -0000 1.21
--- IMAP.pm 10 Feb 2006 15:17:28 -0000 1.22
***************
*** 259,264 ****
$self->connect_folders__();
! # Now do the real job
foreach my $folder ( keys %{$self->{folders__}} ) {
--- 259,266 ----
$self->connect_folders__();
! # Reset the hash containing the hash values we have just seen.
! $self->{hash_values__} = ();
+ # Now do the real job
foreach my $folder ( keys %{$self->{folders__}} ) {
***************
*** 269,278 ****
}
}
-
- # Reset the hash containing the hash values we have just seen.
-
- $self->{hash_values__} = ();
}
-
};
--- 271,275 ----
|
