r72632 - in /branches/upstream/libio-multiplex-perl/current: Changes META.yml lib/IO/Multiplex.pm
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Fri Apr 15 17:20:56 UTC 2011
Author: periapt-guest
Date: Fri Apr 15 17:19:35 2011
New Revision: 72632
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72632
Log:
[svn-upgrade] new version libio-multiplex-perl (1.13)
Modified:
branches/upstream/libio-multiplex-perl/current/Changes
branches/upstream/libio-multiplex-perl/current/META.yml
branches/upstream/libio-multiplex-perl/current/lib/IO/Multiplex.pm
Modified: branches/upstream/libio-multiplex-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-multiplex-perl/current/Changes?rev=72632&op=diff
==============================================================================
--- branches/upstream/libio-multiplex-perl/current/Changes (original)
+++ branches/upstream/libio-multiplex-perl/current/Changes Fri Apr 15 17:19:35 2011
@@ -1,4 +1,8 @@
Revision history for Perl extension IO::Multiplex.
+
+1.13 Fri Apr 15 08:42:43 CEST 2011
+ - fix handling of outbuf which contains '0'.
+ rt.cpan.org#67458 [Gordon Russell]
1.12 Wed Feb 23 22:35:27 CET 2011
- fix MSWin32 complaints
Modified: branches/upstream/libio-multiplex-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-multiplex-perl/current/META.yml?rev=72632&op=diff
==============================================================================
--- branches/upstream/libio-multiplex-perl/current/META.yml (original)
+++ branches/upstream/libio-multiplex-perl/current/META.yml Fri Apr 15 17:19:35 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: IO-Multiplex
-version: 1.12
+version: 1.13
abstract: Manage IO on many file handles
author: []
license: unknown
Modified: branches/upstream/libio-multiplex-perl/current/lib/IO/Multiplex.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-multiplex-perl/current/lib/IO/Multiplex.pm?rev=72632&op=diff
==============================================================================
--- branches/upstream/libio-multiplex-perl/current/lib/IO/Multiplex.pm (original)
+++ branches/upstream/libio-multiplex-perl/current/lib/IO/Multiplex.pm Fri Apr 15 17:19:35 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '1.12';
+our $VERSION = '1.13';
=head1 NAME
@@ -462,7 +462,7 @@
fd_set($self->{_writers}, $fh, 0) if !$_[0];
}
- return $self->{_fhs}{"$fh"}{outbuffer};
+ $self->{_fhs}{"$fh"}{outbuffer};
}
=head2 inbuffer
@@ -612,10 +612,15 @@
foreach my $k (keys %{$self->{_handles}}) {
my $fh = $self->{_handles}->{$k} or next;
+
# Avoid creating a permanent empty hash ref for "$fh"
# by attempting to access its {object} element
# if it has already been closed.
next unless exists $self->{_fhs}{"$fh"};
+
+ # It is not easy to replace $self->{_fhs}{"$fh"} with a
+ # variable, because some mux_* routines may remove it as
+ # side-effect.
# Get the callback object.
my $obj = $self->{_fhs}{"$fh"}{object} ||
@@ -688,7 +693,7 @@
next unless exists $self->{_fhs}{"$fh"};
if (fd_isset($wrready, $fh)) {
- unless ($self->{_fhs}{"$fh"}{outbuffer}) {
+ unless (length $self->{_fhs}{"$fh"}{outbuffer}) {
fd_set($self->{_writers}, $fh, 0);
$obj->mux_outbuffer_empty($self, $fh)
if ($obj && $obj->can("mux_outbuffer_empty"));
More information about the Pkg-perl-cvs-commits
mailing list