r72471 - in /branches/upstream/libnet-imap-client-perl/current: Changes META.yml lib/Net/IMAP/Client.pm
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Mon Apr 11 07:37:45 UTC 2011
Author: periapt-guest
Date: Mon Apr 11 07:36:09 2011
New Revision: 72471
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72471
Log:
[svn-upgrade] new version libnet-imap-client-perl (0.95)
Modified:
branches/upstream/libnet-imap-client-perl/current/Changes
branches/upstream/libnet-imap-client-perl/current/META.yml
branches/upstream/libnet-imap-client-perl/current/lib/Net/IMAP/Client.pm
Modified: branches/upstream/libnet-imap-client-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-client-perl/current/Changes?rev=72471&op=diff
==============================================================================
--- branches/upstream/libnet-imap-client-perl/current/Changes (original)
+++ branches/upstream/libnet-imap-client-perl/current/Changes Mon Apr 11 07:36:09 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: branches/upstream/libnet-imap-client-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-client-perl/current/META.yml?rev=72471&op=diff
==============================================================================
--- branches/upstream/libnet-imap-client-perl/current/META.yml (original)
+++ branches/upstream/libnet-imap-client-perl/current/META.yml Mon Apr 11 07:36:09 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: branches/upstream/libnet-imap-client-perl/current/lib/Net/IMAP/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-client-perl/current/lib/Net/IMAP/Client.pm?rev=72471&op=diff
==============================================================================
--- branches/upstream/libnet-imap-client-perl/current/lib/Net/IMAP/Client.pm (original)
+++ branches/upstream/libnet-imap-client-perl/current/lib/Net/IMAP/Client.pm Mon Apr 11 07:36:09 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).
More information about the Pkg-perl-cvs-commits
mailing list