popfile-commit

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

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

Modified Files:
      Tag: b0_22_2
	Client.pm 
Log Message:
Log errors when connection to server fails.

Index: Client.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP/Client.pm,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -d -r1.1.2.6 -r1.1.2.7
*** Client.pm	9 Feb 2008 08:47:45 -0000	1.1.2.6
--- Client.pm	15 Apr 2008 06:46:54 -0000	1.1.2.7
***************
*** 139,143 ****
                                  PeerPort => $port,
                                  Timeout  => $timeout,
!                     );
          }
          else {
--- 139,144 ----
                                  PeerPort => $port,
                                  Timeout  => $timeout,
!                     )
!                     or $self->log_(0, "IO::Socket::SSL error: $@");
          }
          else {
***************
*** 147,151 ****
                                  PeerPort => $port,
                                  Timeout  => $timeout,
!                     );
          }
  
--- 148,153 ----
                                  PeerPort => $port,
                                  Timeout  => $timeout,
!                     )
!                     or $self->log_(0, "IO::Socket::INET error: $@");
          }