r72634 - in /trunk/libio-multiplex-perl: Changes META.yml debian/changelog lib/IO/Multiplex.pm

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

Author: periapt-guest
Date: Fri Apr 15 17:23:18 2011
New Revision: 72634

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

Modified:
    trunk/libio-multiplex-perl/Changes
    trunk/libio-multiplex-perl/META.yml
    trunk/libio-multiplex-perl/debian/changelog
    trunk/libio-multiplex-perl/lib/IO/Multiplex.pm

Modified: trunk/libio-multiplex-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-multiplex-perl/Changes?rev=72634&op=diff
==============================================================================
--- trunk/libio-multiplex-perl/Changes (original)
+++ trunk/libio-multiplex-perl/Changes Fri Apr 15 17:23:18 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: trunk/libio-multiplex-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-multiplex-perl/META.yml?rev=72634&op=diff
==============================================================================
--- trunk/libio-multiplex-perl/META.yml (original)
+++ trunk/libio-multiplex-perl/META.yml Fri Apr 15 17:23:18 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: trunk/libio-multiplex-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-multiplex-perl/debian/changelog?rev=72634&op=diff
==============================================================================
--- trunk/libio-multiplex-perl/debian/changelog (original)
+++ trunk/libio-multiplex-perl/debian/changelog Fri Apr 15 17:23:18 2011
@@ -1,8 +1,9 @@
-libio-multiplex-perl (1.12-2) UNRELEASED; urgency=low
+libio-multiplex-perl (1.13-1) UNRELEASED; urgency=low
 
   * Added myself to Uploaders 
+  * New upstream release
 
- -- Nicholas Bamber <nicholas at periapt.co.uk>  Fri, 15 Apr 2011 18:12:24 +0100
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Fri, 15 Apr 2011 18:25:32 +0100
 
 libio-multiplex-perl (1.12-1) unstable; urgency=low
 

Modified: trunk/libio-multiplex-perl/lib/IO/Multiplex.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-multiplex-perl/lib/IO/Multiplex.pm?rev=72634&op=diff
==============================================================================
--- trunk/libio-multiplex-perl/lib/IO/Multiplex.pm (original)
+++ trunk/libio-multiplex-perl/lib/IO/Multiplex.pm Fri Apr 15 17:23:18 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"));