Update of /cvsroot/popfile/engine/Services/IMAP
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8973/Services/IMAP
Modified Files:
Client.pm
Log Message:
I wouldn't have thought so, but there actually are UIDVALIDITY values of '0'.
Apart from that: "shift or" is dangerous!
Index: Client.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP/Client.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Client.pm 3 Dec 2007 08:16:49 -0000 1.4
--- Client.pm 9 Feb 2008 08:51:25 -0000 1.5
***************
*** 948,953 ****
sub check_uidvalidity {
my $self = shift;
! my $folder = shift or confess "gimme a folder";
! my $new_val = shift or confess "gimme a new_val";
# Save old UIDVALIDITY value (if we have one)
--- 948,956 ----
sub check_uidvalidity {
my $self = shift;
! my $folder = shift;
! my $new_val = shift;
!
! confess "check_uidvalidity needs a new uidvalidity!" unless defined $new_val;
! confess "check_uidvalidity needs a folder name!" unless defined $folder;
# Save old UIDVALIDITY value (if we have one)
|
