r58598 - in /trunk/libnet-imap-simple-perl: Changes META.yml Simple.pm Simple.pod debian/changelog

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

Author: jawnsy-guest
Date: Thu May 27 23:27:17 2010
New Revision: 58598

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

Modified:
    trunk/libnet-imap-simple-perl/Changes
    trunk/libnet-imap-simple-perl/META.yml
    trunk/libnet-imap-simple-perl/Simple.pm
    trunk/libnet-imap-simple-perl/Simple.pod
    trunk/libnet-imap-simple-perl/debian/changelog

Modified: trunk/libnet-imap-simple-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/Changes?rev=58598&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Changes (original)
+++ trunk/libnet-imap-simple-perl/Changes Thu May 27 23:27:17 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: trunk/libnet-imap-simple-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/META.yml?rev=58598&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/META.yml (original)
+++ trunk/libnet-imap-simple-perl/META.yml Thu May 27 23:27:17 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: trunk/libnet-imap-simple-perl/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/Simple.pm?rev=58598&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Simple.pm (original)
+++ trunk/libnet-imap-simple-perl/Simple.pm Thu May 27 23:27:17 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: trunk/libnet-imap-simple-perl/Simple.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/Simple.pod?rev=58598&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Simple.pod (original)
+++ trunk/libnet-imap-simple-perl/Simple.pod Thu May 27 23:27:17 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);

Modified: trunk/libnet-imap-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/debian/changelog?rev=58598&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/debian/changelog (original)
+++ trunk/libnet-imap-simple-perl/debian/changelog Thu May 27 23:27:17 2010
@@ -1,4 +1,4 @@
-libnet-imap-simple-perl (1.1912-1) UNRELEASED; urgency=low
+libnet-imap-simple-perl (1.1914-1) UNRELEASED; urgency=low
 
   TODO: this has Net::IMAP::Server in Configure_Requires. This means
   we need to have that package done before this one can be tested.
@@ -7,12 +7,11 @@
 
   [ Jonathan Yu ]
   * New upstream release
-  * New upstream release
 
   [ Ryan Niebur ]
   * Update jawnsy's email address
 
- -- Jonathan Yu <jawnsy at cpan.org>  Sat, 01 May 2010 23:51:44 -0400
+ -- Jonathan Yu <jawnsy at cpan.org>  Thu, 27 May 2010 20:06:52 -0400
 
 libnet-imap-simple-perl (1.1900-1) unstable; urgency=low