[popfile-commit] engine/Services/IMAP Client.pm,1.4,1.5

[Manni H. <man...@us...>]

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)