r72474 - in /trunk/libnet-imap-client-perl: Changes META.yml debian/changelog lib/Net/IMAP/Client.pm
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Mon Apr 11 07:42:19 UTC 2011
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).
More information about the Pkg-perl-cvs-commits
mailing list