Hello community, here is the log from the commit of package perl-IO-Multiplex for openSUSE:Factory checked in at Mon Apr 18 12:25:54 CEST 2011.
-------- --- perl-IO-Multiplex/perl-IO-Multiplex.changes 2011-02-28 10:46:28.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-IO-Multiplex/perl-IO-Multiplex.changes 2011-04-18 09:50:35.000000000 +0200 @@ -1,0 +2,8 @@ +Mon Apr 18 07:17:47 UTC 2011 - [email protected] + +- update to 1.13 + - fix handling of outbuf which contains '0'. + rt.cpan.org#67458 [Gordon Russell] +- license correction (GPL+ or Artistic) + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- IO-Multiplex-1.12.tar.bz2 New: ---- IO-Multiplex-1.13.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Multiplex.spec ++++++ --- /var/tmp/diff_new_pack.9qw1eh/_old 2011-04-18 12:25:01.000000000 +0200 +++ /var/tmp/diff_new_pack.9qw1eh/_new 2011-04-18 12:25:01.000000000 +0200 @@ -20,11 +20,11 @@ Name: perl-IO-Multiplex Url: http://cpan.org/modules/by-module/IO/ -License: Artistic +License: GPL+ or Artistic Group: Development/Libraries/Perl AutoReqProv: on Summary: Manage IO on many file handles -Version: 1.12 +Version: 1.13 Release: 1 Source: IO-Multiplex-%{version}.tar.bz2 BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ IO-Multiplex-1.12.tar.bz2 -> IO-Multiplex-1.13.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.12/Changes new/IO-Multiplex-1.13/Changes --- old/IO-Multiplex-1.12/Changes 2011-02-23 22:35:29.000000000 +0100 +++ new/IO-Multiplex-1.13/Changes 2011-04-15 08:42:45.000000000 +0200 @@ -1,5 +1,9 @@ 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 rt.cpan.org#66096 [Mark Dootson] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.12/META.yml new/IO-Multiplex-1.13/META.yml --- old/IO-Multiplex-1.12/META.yml 2011-02-23 22:41:58.000000000 +0100 +++ new/IO-Multiplex-1.13/META.yml 2011-04-15 08:42:50.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.12/lib/IO/Multiplex.pm new/IO-Multiplex-1.13/lib/IO/Multiplex.pm --- old/IO-Multiplex-1.12/lib/IO/Multiplex.pm 2011-02-23 22:36:06.000000000 +0100 +++ new/IO-Multiplex-1.13/lib/IO/Multiplex.pm 2011-04-15 08:40:23.000000000 +0200 @@ -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,11 +612,16 @@ 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} || $self->{_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")); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
