r72474 - in /trunk/libnet-imap-client-perl: Changes META.yml debian/changelog lib/Net/IMAP/Client.pm

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Mon Apr 11 07:41:58 2011
New Revision: 72474

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72474
Log:
New upstream release

Modified:
    trunk/libnet-imap-client-perl/Changes
    trunk/libnet-imap-client-perl/META.yml
    trunk/libnet-imap-client-perl/debian/changelog
    trunk/libnet-imap-client-perl/lib/Net/IMAP/Client.pm

Modified: trunk/libnet-imap-client-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-client-perl/Changes?rev=72474&op=diff
==============================================================================
--- trunk/libnet-imap-client-perl/Changes (original)
+++ trunk/libnet-imap-client-perl/Changes Mon Apr 11 07:41:58 2011
@@ -1,4 +1,9 @@
 Revision history for Net-IMAP-Client
+
+0.95    Apr 9, 2011
+
+        - fix #48163 error after logout
+        - add examine() method (identical to select(); keyword differs)
 
 0.94    Dec 22, 2010
 

Modified: trunk/libnet-imap-client-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-client-perl/META.yml?rev=72474&op=diff
==============================================================================
--- trunk/libnet-imap-client-perl/META.yml (original)
+++ trunk/libnet-imap-client-perl/META.yml Mon Apr 11 07:41:58 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Net-IMAP-Client
-version:            0.94
+version:            0.95
 abstract:           Not so simple IMAP client library
 author:
     - Mihai Bazon <mihai.bazon at gmail.com>

Modified: trunk/libnet-imap-client-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-client-perl/debian/changelog?rev=72474&op=diff
==============================================================================
--- trunk/libnet-imap-client-perl/debian/changelog (original)
+++ trunk/libnet-imap-client-perl/debian/changelog Mon Apr 11 07:41:58 2011
@@ -1,3 +1,9 @@
+libnet-imap-client-perl (0.95-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Mon, 11 Apr 2011 08:42:02 +0100
+
 libnet-imap-client-perl (0.94-1) unstable; urgency=low
 
   [ Nicholas Bamber ]

Modified: trunk/libnet-imap-client-perl/lib/Net/IMAP/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-client-perl/lib/Net/IMAP/Client.pm?rev=72474&op=diff
==============================================================================
--- trunk/libnet-imap-client-perl/lib/Net/IMAP/Client.pm (original)
+++ trunk/libnet-imap-client-perl/lib/Net/IMAP/Client.pm Mon Apr 11 07:41:58 2011
@@ -1,7 +1,7 @@
 package Net::IMAP::Client;
 
 use vars qw[$VERSION];
-$VERSION = '0.94';
+$VERSION = '0.95';
 
 use strict;
 use warnings;
@@ -48,7 +48,7 @@
     my ($self) = @_;
     eval {
         $self->quit
-          if $self->_get_socket->opened;
+          if $self->{socket}->opened;
     };
 }
 
@@ -145,10 +145,19 @@
 }
 
 sub select {
-    my ($self, $folder) = @_;
+	my ($self, $folder) = @_;
+	$self->_select_or_examine($folder, 'SELECT');
+}
+sub examine {
+	my ($self, $folder) = @_;
+	$self->_select_or_examine($folder, 'EXAMINE');
+}
+
+sub _select_or_examine {
+    my ($self, $folder, $operation) = @_;
     my $quoted = $folder;
     _string_quote($quoted);
-    my ($ok, $lines) = $self->_tell_imap(SELECT => $quoted);
+    my ($ok, $lines) = $self->_tell_imap($operation => $quoted);
     if ($ok) {
         $self->{selected_folder} = $folder;
         my %info = ();
@@ -1242,6 +1251,11 @@
 
 This method is basically stolen from Net::IMAP::Simple.
 
+=head2 examine($folder)
+
+Selects the current IMAP folder in read-only (EXAMINE) mode.
+Otherwise identical to select.
+ 
 =head2 status($folder), status(\@folders)
 
 Returns the status of the given folder(s).