r68333 - in /branches/upstream/libnet-imap-simple-perl/current: Changes META.yml Simple.pm lib/Net/IMAP/Simple/PipeSocket.pm
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Thu Feb 10 22:10:29 UTC 2011
Author: carnil
Date: Thu Feb 10 22:10:18 2011
New Revision: 68333
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68333
Log:
[svn-upgrade] new version libnet-imap-simple-perl (1.2020)
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/lib/Net/IMAP/Simple/PipeSocket.pm
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=68333&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/Changes (original)
+++ branches/upstream/libnet-imap-simple-perl/current/Changes Thu Feb 10 22:10:18 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: 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=68333&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/META.yml (original)
+++ branches/upstream/libnet-imap-simple-perl/current/META.yml Thu Feb 10 22:10:18 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: 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=68333&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/Simple.pm (original)
+++ branches/upstream/libnet-imap-simple-perl/current/Simple.pm Thu Feb 10 22:10:18 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: branches/upstream/libnet-imap-simple-perl/current/lib/Net/IMAP/Simple/PipeSocket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-imap-simple-perl/current/lib/Net/IMAP/Simple/PipeSocket.pm?rev=68333&op=diff
==============================================================================
--- branches/upstream/libnet-imap-simple-perl/current/lib/Net/IMAP/Simple/PipeSocket.pm (original)
+++ branches/upstream/libnet-imap-simple-perl/current/lib/Net/IMAP/Simple/PipeSocket.pm Thu Feb 10 22:10:18 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__
More information about the Pkg-perl-cvs-commits
mailing list