r68336 - in /trunk/libnet-imap-simple-perl: Changes META.yml Simple.pm debian/changelog lib/Net/IMAP/Simple/PipeSocket.pm

[carnil at users.alioth.debian.org]

Author: carnil
Date: Thu Feb 10 22:13:56 2011
New Revision: 68336

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68336
Log:
* Team upload.
* New upstream release
  - CLOSE method for Net::IMAP::Simple::PipeSocket added (Closes: #612816).

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/debian/changelog
    trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple/PipeSocket.pm

Modified: trunk/libnet-imap-simple-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/Changes?rev=68336&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Changes (original)
+++ trunk/libnet-imap-simple-perl/Changes Thu Feb 10 22:13:56 2011
@@ -1,3 +1,6 @@
+1.2020: Mon Feb 07 2011
+   - Andrzej Adam Filip requested a CLOSE method for ::PipeSocket
+
 1.2019: Wed Dec 01 2010
    - _process_flags() was a little too aggressive about what's a
      valid flag and what isn't.  Really, it needs to be up to the

Modified: trunk/libnet-imap-simple-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/META.yml?rev=68336&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/META.yml (original)
+++ trunk/libnet-imap-simple-perl/META.yml Thu Feb 10 22:13:56 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Net-IMAP-Simple
-version:            1.2019
+version:            1.2020
 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=68336&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Simple.pm (original)
+++ trunk/libnet-imap-simple-perl/Simple.pm Thu Feb 10 22:13:56 2011
@@ -9,7 +9,7 @@
 use IO::Select;
 use Net::IMAP::Simple::PipeSocket;
 
-our $VERSION = "1.2019";
+our $VERSION = "1.2020";
 
 BEGIN {
     # I'd really rather the pause/cpan indexers miss this "package"

Modified: trunk/libnet-imap-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/debian/changelog?rev=68336&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/debian/changelog (original)
+++ trunk/libnet-imap-simple-perl/debian/changelog Thu Feb 10 22:13:56 2011
@@ -1,3 +1,11 @@
+libnet-imap-simple-perl (1.2020-1) UNRELEASED; urgency=low
+
+  * Team upload.
+  * New upstream release
+    - CLOSE method for Net::IMAP::Simple::PipeSocket added (Closes: #612816).
+
+ -- Salvatore Bonaccorso <carnil at debian.org>  Thu, 10 Feb 2011 23:11:07 +0100
+
 libnet-imap-simple-perl (1.2019-1) unstable; urgency=low
 
   * Team upload.

Modified: trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple/PipeSocket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple/PipeSocket.pm?rev=68336&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple/PipeSocket.pm (original)
+++ trunk/libnet-imap-simple-perl/lib/Net/IMAP/Simple/PipeSocket.pm Thu Feb 10 22:13:56 2011
@@ -104,6 +104,17 @@
     return;
 }
 
+sub CLOSE {
+    my $this = shift;
+    my $rdr  = $this->{rdr};
+    my $wtr  = $this->{wtr};
+
+    close $rdr or warn "PIPE ERR (close-r): $!";
+    close $wtr or warn "PIPE ERR (close-w): $!";
+
+    return;
+}
+
 1;
 
 __END__