Hello community, here is the log from the commit of package perl-IO-Multiplex for openSUSE:Factory checked in at Mon Feb 28 12:13:54 CET 2011.
-------- --- perl-IO-Multiplex/perl-IO-Multiplex.changes 2011-02-22 10:59:52.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-IO-Multiplex/perl-IO-Multiplex.changes 2011-02-28 10:46:28.000000000 +0100 @@ -1,0 +2,7 @@ +Mon Feb 28 09:39:16 UTC 2011 - [email protected] + +- update to 1.12 + - fix MSWin32 complaints + rt.cpan.org#66096 [Mark Dootson] + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- IO-Multiplex-1.11.tar.bz2 New: ---- IO-Multiplex-1.12.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Multiplex.spec ++++++ --- /var/tmp/diff_new_pack.1D9RP8/_old 2011-02-28 12:12:31.000000000 +0100 +++ /var/tmp/diff_new_pack.1D9RP8/_new 2011-02-28 12:12:31.000000000 +0100 @@ -24,7 +24,7 @@ Group: Development/Libraries/Perl AutoReqProv: on Summary: Manage IO on many file handles -Version: 1.11 +Version: 1.12 Release: 1 Source: IO-Multiplex-%{version}.tar.bz2 BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ IO-Multiplex-1.11.tar.bz2 -> IO-Multiplex-1.12.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.11/Changes new/IO-Multiplex-1.12/Changes --- old/IO-Multiplex-1.11/Changes 2011-02-02 17:06:31.000000000 +0100 +++ new/IO-Multiplex-1.12/Changes 2011-02-23 22:35:29.000000000 +0100 @@ -1,5 +1,9 @@ Revision history for Perl extension IO::Multiplex. +1.12 Wed Feb 23 22:35:27 CET 2011 + - fix MSWin32 complaints + rt.cpan.org#66096 [Mark Dootson] + 1.11 Wed Feb 2 17:05:08 CET 2011 - Avoid warning while adding pipe rt.cpan.org#60068 [Khedin] and #16259 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.11/META.yml new/IO-Multiplex-1.12/META.yml --- old/IO-Multiplex-1.11/META.yml 2011-02-02 17:41:25.000000000 +0100 +++ new/IO-Multiplex-1.12/META.yml 2011-02-23 22:41:58.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: IO-Multiplex -version: 1.11 +version: 1.12 abstract: Manage IO on many file handles author: [] license: unknown diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.11/lib/IO/Multiplex.pm new/IO-Multiplex-1.12/lib/IO/Multiplex.pm --- old/IO-Multiplex-1.11/lib/IO/Multiplex.pm 2011-02-02 17:41:16.000000000 +0100 +++ new/IO-Multiplex-1.12/lib/IO/Multiplex.pm 2011-02-23 22:36:06.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '1.11'; +our $VERSION = '1.12'; =head1 NAME @@ -278,13 +278,15 @@ # Can optionally use Hi Res timers if available require Time::HiRes; Time::HiRes->import('time'); - } -}; + }; +} # This is what you want. Trust me. $SIG{PIPE} = 'IGNORE'; -if(IsWin) { *EWOULDBLOCK = sub {10035} } +{ no warnings; + if(IsWin) { *EWOULDBLOCK = sub() {10035} } +} =head2 new @@ -938,7 +940,7 @@ { my $fh = shift; if(IsWin) - { ioctl($fh, 0x8004667e, 1); + { ioctl($fh, 0x8004667e, pack("L!", 1)); } else { my $flags = fcntl($fh, F_GETFL, 0) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.11/t/110_ntest.t new/IO-Multiplex-1.12/t/110_ntest.t --- old/IO-Multiplex-1.11/t/110_ntest.t 2002-11-26 00:47:12.000000000 +0100 +++ new/IO-Multiplex-1.12/t/110_ntest.t 2011-02-23 22:33:02.000000000 +0100 @@ -58,10 +58,16 @@ print "ok 10\n"; my $flags = 0; -fcntl($server_socket, F_GETFL, $flags) - or die "fcntl F_GETFL: $!\n"; -fcntl($server_socket, F_SETFL, $flags & ~O_NONBLOCK) - or die "fcntl F_SETFL $!\n"; + +if($^O eq 'MSWin32') +{ ioctl($server_socket, 0x8004667e, pack("L!", 0)); +} +else +{ fcntl($server_socket, F_GETFL, $flags) + or die "fcntl F_GETFL: $!\n"; + fcntl($server_socket, F_SETFL, $flags & ~O_NONBLOCK) + or die "fcntl F_SETFL $!\n"; +} if (syswrite ($client_socket, $test_msg1, length $test_msg1) == 10) { print "ok 11\n"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.11/t/200_udp.t new/IO-Multiplex-1.12/t/200_udp.t --- old/IO-Multiplex-1.11/t/200_udp.t 2011-02-02 12:28:23.000000000 +0100 +++ new/IO-Multiplex-1.12/t/200_udp.t 2011-02-23 22:37:14.000000000 +0100 @@ -20,7 +20,10 @@ use IO::Multiplex; use POSIX qw(ENOTCONN EDESTADDRREQ); -if($^O eq 'MSWin32') { *ENOTCONN = sub(){10057} } +if($^O eq 'MSWin32') +{ no warnings; + *ENOTCONN = sub() {10057}; +} $| = 1; plan tests => 15; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
