r58595 - in /branches/upstream/libnet-imap-simple-perl/current: Changes META.yml Simple.pm Simple.pod

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

Author: jawnsy-guest
Date: Thu May 27 23:25:44 2010
New Revision: 58595

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58595
Log:
[svn-upgrade] Integrating new upstream version, libnet-imap-simple-perl (1.1914)

Modified:
    branches/upstream/libnet-imap-simple-perl/current/Changes
    branches/upstream/libnet-imap-simple-perl/current/META.yml
    branches/upstream/libnet-imap-simple-perl/current/Simple.pm
    branches/upstream/libnet-imap-simple-perl/current/Simple.pod

Modified: branches/upstream/libnet-imap-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-simple-perl/current/Changes?rev=58595&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/Changes (original)
+++ branches/upstream/libnet-imap-simple-perl/current/Changes Thu May 27 23:25:44 2010
@@ -1,3 +1,7 @@
+1.1913: Wed May 26 2010
+1.1914: Wed May 26 2010
+   - pulled in changes from alexmv
+
 1.1912: Fri Apr 23 2010
    - Doug confirmed that it worked.  I'm going to go ahead and
      release this as a new version.

Modified: branches/upstream/libnet-imap-simple-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-simple-perl/current/META.yml?rev=58595&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/META.yml (original)
+++ branches/upstream/libnet-imap-simple-perl/current/META.yml Thu May 27 23:25:44 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Net-IMAP-Simple
-version:            1.1912
+version:            1.1914
 abstract:           ~
 author:
     - Paul Miller <jettero at cpan.org>

Modified: branches/upstream/libnet-imap-simple-perl/current/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-simple-perl/current/Simple.pm?rev=58595&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/Simple.pm (original)
+++ branches/upstream/libnet-imap-simple-perl/current/Simple.pm Thu May 27 23:25:44 2010
@@ -8,7 +8,7 @@
 use IO::Socket;
 use IO::Select;
 
-our $VERSION = "1.1912";
+our $VERSION = "1.1914";
 
 BEGIN {
     # I'd really rather the pause/cpan indexers miss this "package"
@@ -326,6 +326,22 @@
     my ($self) = @_;
 
     return ( $self->{working_box} ? $self->{working_box} : 'INBOX' );
+}
+
+sub close { ## no critic -- we already have tons of methods with built in names
+
+    my $self = shift;
+    $self->{working_box} = undef;
+    return $self->_process_cmd(
+        cmd => [ "CLOSE" ],
+    );
+}
+
+sub noop {
+    my $self = shift;
+    return $self->_process_cmd(
+        cmd => [ "NOOP" ],
+    );
 }
 
 sub top {
@@ -508,7 +524,7 @@
     @flags = $self->_process_flags(@flags);
 
     return $self->_process_cmd(
-        cmd   => [ APPEND => "$mailbox_name (@flags) {$size}" ],
+        cmd   => [ APPEND => _escape($mailbox_name) ." (@flags) {$size}" ],
         final => sub { $self->_clear_cache },
         process => sub {
             if ($size) {
@@ -659,9 +675,8 @@
         chomp( my $res = $self->_sock->getline );
 
         $res =~ s/\r//;
-        _escape($res);
-
-        push @list, $res;
+
+        push @list, _escape($res);
 
         $self->_debug( caller, __LINE__, '_process_list', $res ) if $self->{debug};
 

Modified: branches/upstream/libnet-imap-simple-perl/current/Simple.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-simple-perl/current/Simple.pod?rev=58595&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/Simple.pod (original)
+++ branches/upstream/libnet-imap-simple-perl/current/Simple.pod Thu May 27 23:25:44 2010
@@ -165,6 +165,12 @@
 the EXAMINE command is sent to the server instead of SELECT.
 L<Net::IMAP::Simple> is otherwise unaware of the read-only-ness of the mailbox.
 
+=item close
+
+    $imap->close;
+
+Un-selects the current mailbox, leaving no mailbox selected.
+
 =item messages
 
     print "Messages in Junk Mail -- " . $imap->messages("INBOX.Junk Mail") .  "\n";
@@ -500,6 +506,15 @@
 are required.  On success this method returns true. Returns false on failure and
 the C<errstr()> error handler is set with the error message.
 
+=item noop
+
+  $imap->noop;
+
+Performs a null operation.  This may be needed to get updates on a
+mailbox, or ensure that the server does not close the connection as
+idle.  RFC 3501 states that servers' idle timeouts must not be less
+than 30 minutes.
+
 =item errstr
 
  print "Login ERROR: " . $imap->errstr . "\n" if !$imap->login($user, $pass);