[popfile-commit] engine/Services/IMAP Client.pm,1.1.2.5,1.1.2.6

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

Update of /cvsroot/popfile/engine/Services/IMAP
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7500/Services/IMAP

Modified Files:
      Tag: b0_22_2
	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.1.2.5
retrieving revision 1.1.2.6
diff -C2 -d -r1.1.2.5 -r1.1.2.6
*** Client.pm	1 Dec 2007 20:58:32 -0000	1.1.2.5
--- Client.pm	9 Feb 2008 08:47:45 -0000	1.1.2.6
***************
*** 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)