Hello community, here is the log from the commit of package perl-IO-Multiplex for openSUSE:Factory checked in at 2015-04-16 14:14:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-IO-Multiplex (Old) and /work/SRC/openSUSE:Factory/.perl-IO-Multiplex.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Multiplex" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-IO-Multiplex/perl-IO-Multiplex.changes 2011-11-21 12:41:33.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-IO-Multiplex.new/perl-IO-Multiplex.changes 2015-04-16 14:14:17.000000000 +0200 @@ -1,0 +2,18 @@ +Tue Apr 14 19:21:48 UTC 2015 - [email protected] + +- updated to 1.16 + see /usr/share/doc/packages/perl-IO-Multiplex/Changes + + 1.16 Thu Apr 9 17:00:00 CET 2015 + - Fix descriptor memory leak: + Make $mux->close actually untie *$fh + + 1.15 Tue Mar 11 14:00:00 CET 2015 + - Move untie patch to the right place. + + 1.14 Mon Mar 30 11:00:00 CET 2015 + - Fix 110_ntest to avoid reading from muxed handle. + - Apply patch to prevent untie warnings. + rt.cpan.org#67846 [[email protected] Darin McBride] + +------------------------------------------------------------------- Old: ---- IO-Multiplex-1.13.tar.gz New: ---- IO-Multiplex-1.16.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Multiplex.spec ++++++ --- /var/tmp/diff_new_pack.3AVEpk/_old 2015-04-16 14:14:17.000000000 +0200 +++ /var/tmp/diff_new_pack.3AVEpk/_new 2015-04-16 14:14:17.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-IO-Multiplex # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,53 +15,55 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - Name: perl-IO-Multiplex -Url: http://cpan.org/modules/by-module/IO/ +Version: 1.16 +Release: 0 +#Upstream: CHECK(GPL-1.0+ or Artistic-1.0) +%define cpan_name IO-Multiplex +Summary: Manage IO on many file handles License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl -AutoReqProv: on -Summary: Manage IO on many file handles -Version: 1.13 -Release: 1 -Source: IO-Multiplex-%{version}.tar.gz +Url: http://search.cpan.org/dist/IO-Multiplex/ +Source0: http://www.cpan.org/authors/id/B/BB/BBB/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml +BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} BuildRequires: perl BuildRequires: perl-macros +%{perl_requires} %description -"IO::Multiplex" reduces the effort of managing multiple file handles. -It is a fancy front end to the "select" system call. - +It is object oriented in design, and will notify you of significant events +by calling methods on an object that you supply. If you are not using +objects, you can simply supply '__PACKAGE__' instead of an object +reference. + +You may have one callback object registered for each file handle, or one +global one. Possibly both -- the per-file handle callback object will be +used instead of the global one. +Each file handle may also have a timer associated with it. A callback +function is called when the timer expires. %prep -%setup -q -n IO-Multiplex-%{version} +%setup -q -n %{cpan_name}-%{version} +find . -type f -print0 | xargs -0 chmod 644 %build -perl Makefile.PL -make %{?_smp_mflags} +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} %check -make test +%{__make} test %install %perl_make_install %perl_process_packlist +%perl_gen_filelist -%clean -[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT - -%files -%defattr(-,root,root) -%doc %{_mandir}/man3/* -%doc README MANIFEST Changes TODO contrib -%dir %{perl_vendorlib}/IO -%dir %{perl_vendorarch}/auto/IO -%{perl_vendorarch}/auto/IO/Multiplex -%{perl_vendorlib}/IO/Multiplex.pm +%files -f %{name}.files +%defattr(-,root,root,755) +%doc Changes README TODO %changelog ++++++ IO-Multiplex-1.13.tar.gz -> IO-Multiplex-1.16.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.13/Changes new/IO-Multiplex-1.16/Changes --- old/IO-Multiplex-1.13/Changes 2011-04-15 08:42:45.000000000 +0200 +++ new/IO-Multiplex-1.16/Changes 2015-04-09 23:37:54.000000000 +0200 @@ -1,5 +1,17 @@ Revision history for Perl extension IO::Multiplex. +1.16 Thu Apr 9 17:00:00 CET 2015 + - Fix descriptor memory leak: + Make $mux->close actually untie *$fh + +1.15 Tue Mar 11 14:00:00 CET 2015 + - Move untie patch to the right place. + +1.14 Mon Mar 30 11:00:00 CET 2015 + - Fix 110_ntest to avoid reading from muxed handle. + - Apply patch to prevent untie warnings. + rt.cpan.org#67846 [[email protected] Darin McBride] + 1.13 Fri Apr 15 08:42:43 CEST 2011 - fix handling of outbuf which contains '0'. rt.cpan.org#67458 [Gordon Russell] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.13/META.yml new/IO-Multiplex-1.16/META.yml --- old/IO-Multiplex-1.13/META.yml 2011-04-15 08:42:50.000000000 +0200 +++ new/IO-Multiplex-1.16/META.yml 2015-04-09 23:39:09.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: IO-Multiplex -version: 1.13 +version: 1.16 abstract: Manage IO on many file handles author: [] license: unknown @@ -15,7 +15,7 @@ directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.56 +generated_by: ExtUtils::MakeMaker version 6.55_02 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.13/lib/IO/Multiplex.pm new/IO-Multiplex-1.16/lib/IO/Multiplex.pm --- old/IO-Multiplex-1.13/lib/IO/Multiplex.pm 2011-04-15 08:40:23.000000000 +0200 +++ new/IO-Multiplex-1.16/lib/IO/Multiplex.pm 2015-04-09 23:27:54.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '1.13'; +our $VERSION = '1.16'; =head1 NAME @@ -387,6 +387,7 @@ delete $self->{_handles}{"$fh"}; $self->_removeTimer($fh); untie *$fh; + return 1; } =head2 set_callback_object @@ -1022,6 +1023,8 @@ return "Fnord"; } +sub UNTIE {} + 1; __END__ @@ -1105,6 +1108,6 @@ Released under the same terms as Perl itself. -$Id: Multiplex.pm,v 1.36 2008/09/15 08:17:50 rob Exp $ +$Id: Multiplex.pm,v 1.45 2015/04/09 21:27:54 rob Exp $ =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IO-Multiplex-1.13/t/110_ntest.t new/IO-Multiplex-1.16/t/110_ntest.t --- old/IO-Multiplex-1.13/t/110_ntest.t 2011-02-23 22:33:02.000000000 +0100 +++ new/IO-Multiplex-1.16/t/110_ntest.t 2015-03-30 17:40:43.000000000 +0200 @@ -3,18 +3,19 @@ ######################### We start with some black magic to print on failure. -# Change 1..1 below to 1..last_test_to_print . -# (It may become useful if the test is moved to ./t subdirectory.) +# Change 1..1 below to 1..last_test_to_print. +# Testing syswrite() to a MUX handle -BEGIN { $| = 1; print "1..13\n"; } +use strict; +BEGIN { $| = 1; print "1..8\n";} +my $loaded; END {print "not ok 1\n" unless $loaded;} use IO::Socket; use IO::Multiplex; use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK); $loaded = 1; -my $test_msg1 = "Sync test\n"; -my $test_msg2 = "Hello\n"; +my $test_msg = "Hello\n"; print "ok 1\n"; @@ -29,15 +30,14 @@ print $mux ? "ok 2\n" : "not ok 2\n"; my $client_socket; -my $server_socket; my $listen_socket = IO::Socket::INET->new(Proto => 'tcp', Listen => 4); print $listen_socket ? "ok 3\n" : "not ok 3\n"; -$port = $listen_socket->sockport; +my $port = $listen_socket->sockport; -$test_no = 4; +my $test_no = 4; $SIG{ALRM} = sub { print "not ok $test_no\n"; exit }; @@ -48,56 +48,17 @@ $mux->set_timeout($listen_socket, 5); #print STDERR "DEBUG: Doing loop...\n"; $mux->loop; -#print STDERR "DEBUG: Done with loop.\n"; - -print "ok 9\n"; - -$mux->remove($client_socket); -$mux->remove($server_socket); - -print "ok 10\n"; - -my $flags = 0; - -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"; -} else { - print "not ok 11\n"; -} -my $buf; - -#print STDERR "DEBUG: doing sysread...\n"; -if (sysread ($server_socket, $buf, 10) == 10) { - print "ok 12\n"; -} else { - print "not ok 12\n"; -} - -if ( $buf eq $test_msg1 ) { - print "ok 13\n"; -} else { - print "not ok 13\n"; -} sub mux_timeout { #print STDERR "DEBUG: mux_timeout reached!\n"; print "ok 4\n"; - + + $test_no = 5; $client_socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1", PeerPort => $port, Proto => 'tcp'); - $client_socket->autoflush(1); + print $client_socket ? "ok 5\n" : "not ok 5\n"; $test_no = 6; } @@ -106,13 +67,12 @@ { my $package = shift; my $mux = shift; - $server_socket = shift; - $server_socket->autoflush(1); - $client_socket->autoflush(1); + my $fh = shift; + print "ok 6\n"; $test_no++; - syswrite($client_socket, $test_msg2, length $test_msg2); + syswrite($client_socket, $test_msg, length $test_msg); } sub mux_input @@ -123,7 +83,7 @@ return unless $$input =~ /\n/; - print $$input eq $test_msg2 ? "ok 8\n" : "not ok 8\n"; + print $$input eq $test_msg ? "ok 8\n" : "not ok 8\n"; - $mux->endloop; + exit; } ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files license: GPL-1.0+ or Artistic-1.0 #skip_noarch: 1 #custom_build: - #./Build build flags=%{?_smp_mflags} --myflag
