Hello community, here is the log from the commit of package perl-Test-TCP for openSUSE:Factory checked in at 2013-06-25 06:58:23 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-TCP (Old) and /work/SRC/openSUSE:Factory/.perl-Test-TCP.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-TCP" Changes: -------- New Changes file: --- /dev/null 2013-06-24 17:57:59.600030256 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-TCP.new/perl-Test-TCP.changes 2013-06-25 06:58:23.000000000 +0200 @@ -0,0 +1,36 @@ +------------------------------------------------------------------- +Thu Jun 7 18:18:25 UTC 2012 - [email protected] + +- update to 1.15: + + ${^CHILD_ERROR_NATIVE} is only available in perl > 5.8.9 + + Fixed testing issue on AIX. + https://rt.cpan.org/Public/Bug/Display.html?id=72779 + + depend to Test::SharedFork 0.19 for better TB2 support + + change port number range from 10000 .. 11000 to + 50000 .. 60000 to respect IANA. + https://rt.cpan.org/Ticket/Display.html?id=64012 + + more diagnostic messages + + localize $@ in Test::TCP::DESTROY + + added Test::TCP->stop method + + added document in FAQ section + + new OO interface! + + allow forking in the client(lestrrat) +- updated dependencies +- small specfile cleanup + +------------------------------------------------------------------- +Wed Dec 1 06:55:45 UTC 2010 - [email protected] + +- switch to perl_requires macro + +------------------------------------------------------------------- +Wed Sep 22 00:53:03 UTC 2010 - [email protected] + +- remove note calls in t/01_ and t/08_ + +------------------------------------------------------------------- +Tue Sep 21 03:17:17 UTC 2010 - [email protected] + +- initial package 1.06 + * created by cpanspec 1.78 + New: ---- Test-TCP-1.15.tar.bz2 perl-Test-TCP.changes perl-Test-TCP.spec test-no-note.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-TCP.spec ++++++ # # spec file for package perl-Test-TCP # # Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed # upon. The license for this file, and modifications and additions to the # file, is the same license as for the pristine package itself (unless the # license for the pristine package is not an Open Source License, in which # case the license is the MIT License). An "Open Source License" is a # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. # Please submit bugfixes or comments via http://bugs.opensuse.org/ # Name: perl-Test-TCP Version: 1.15 Release: 0 %define cpan_name Test-TCP Summary: Testing TCP program License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Test-TCP/ Source: %{cpan_name}-%{version}.tar.bz2 # PATCH-MISSING-TAG -- See http://en.opensuse.org/Packaging/Patches Patch0: test-no-note.patch BuildRequires: perl BuildRequires: perl >= 5.8.0 BuildRequires: perl-macros BuildRequires: perl(IO::Socket::INET) BuildRequires: perl(Test::SharedFork) >= 0.19 Requires: perl >= 5.8.0 Requires: perl(IO::Socket::INET) Requires: perl(Test::SharedFork) >= 0.19 BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildArch: noarch %{perl_requires} %description Test::TCP is test utilities for TCP/IP program. %prep %setup -q -n %{cpan_name}-%{version} %patch0 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor %{__make} %{?_smp_mflags} %check %{__make} test %install %perl_make_install # do not perl_process_packlist (noarch) # remove .packlist file %{__rm} -rf %{buildroot}%perl_vendorarch # remove perllocal.pod file %{__rm} -rf %{buildroot}%perl_archlib %perl_gen_filelist %clean %{__rm} -rf %{buildroot} %files -f %{name}.files %defattr(-,root,root,-) %doc Changes README %changelog ++++++ test-no-note.patch ++++++ --- t/01_simple.t | 8 ++++---- t/08_exit.t | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) Index: Test-TCP-1.06/t/01_simple.t =================================================================== --- Test-TCP-1.06.orig/t/01_simple.t 2010-08-15 09:21:39.000000000 -0400 +++ Test-TCP-1.06/t/01_simple.t 2010-09-21 20:57:13.772647840 -0400 @@ -15,24 +15,24 @@ Proto => 'tcp' ) or die "Cannot open client socket: $!"; - note "send 1"; + #note "send 1"; print {$sock} "foo\n"; my $res = <$sock>; is $res, "foo\n"; - note "send 2"; + #note "send 2"; print {$sock} "bar\n"; my $res2 = <$sock>; is $res2, "bar\n"; - note "finalize"; + #note "finalize"; print {$sock} "quit\n"; }, server => sub { my $port = shift; ok $port, "test case for sharedfork" for 1..10; t::Server->new($port)->run(sub { - note "new request"; + # note "new request"; my ($remote, $line, $sock) = @_; print {$remote} $line; }); Index: Test-TCP-1.06/t/08_exit.t =================================================================== --- Test-TCP-1.06.orig/t/08_exit.t 2010-08-24 00:08:16.000000000 -0400 +++ Test-TCP-1.06/t/08_exit.t 2010-09-21 20:57:49.580718901 -0400 @@ -36,16 +36,16 @@ test_tcp( client => sub { my $port = shift; - note "CLIENT: $$"; + #note "CLIENT: $$"; exit 1; }, server => sub { my $port = shift; - note "SEVER: $$"; + #note "SEVER: $$"; print {$tmp} $$; $tmp->close; t::Server->new($port)->run(sub { - note "new request"; + #note "new request"; my ($remote, $line, $sock) = @_; print {$remote} $line; }); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
