Hello community, here is the log from the commit of package perl-Test-TCP for openSUSE:Factory checked in at 2013-11-26 14:42:12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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: -------- --- /work/SRC/openSUSE:Factory/perl-Test-TCP/perl-Test-TCP.changes 2013-11-13 09:45:43.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-TCP.new/perl-Test-TCP.changes 2013-11-26 14:42:13.000000000 +0100 @@ -1,0 +2,6 @@ +Mon Nov 25 07:38:53 UTC 2013 - [email protected] + +- updated to 2.02 + - Fixed fork(2) error handling. (tokuhirom) + +------------------------------------------------------------------- Old: ---- Test-TCP-2.01.tar.gz New: ---- Test-TCP-2.02.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-TCP.spec ++++++ --- /var/tmp/diff_new_pack.yOUgNW/_old 2013-11-26 14:42:14.000000000 +0100 +++ /var/tmp/diff_new_pack.yOUgNW/_new 2013-11-26 14:42:14.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Test-TCP -Version: 2.01 +Version: 2.02 Release: 0 %define cpan_name Test-TCP Summary: Testing TCP program ++++++ Test-TCP-2.01.tar.gz -> Test-TCP-2.02.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.01/Build.PL new/Test-TCP-2.02/Build.PL --- old/Test-TCP-2.01/Build.PL 2013-09-22 06:14:24.000000000 +0200 +++ new/Test-TCP-2.02/Build.PL 2013-10-30 04:23:09.000000000 +0100 @@ -25,12 +25,15 @@ name => 'Test-TCP', module_name => 'Test::TCP', - allow_pure_perl => 0, + allow_pureperl => 0, script_files => [glob('script/*'), glob('bin/*')], + c_source => [qw()], + PL_files => {}, test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/', recursive_test_files => 1, + ); if (-d 'share') { $args{share_dir} = 'share'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.01/Changes new/Test-TCP-2.02/Changes --- old/Test-TCP-2.01/Changes 2013-09-22 06:14:24.000000000 +0200 +++ new/Test-TCP-2.02/Changes 2013-10-30 04:23:09.000000000 +0100 @@ -1,5 +1,10 @@ Revision history for Perl extension Test::TCP +2.02 2013-10-30T03:22:39Z + + - Fixed fork(2) error handling. + (tokuhirom) + 2.01 2013-09-22T04:13:53Z commit 95cd6a0669d422e10f2d3b09f35346c86f7e3257 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.01/META.json new/Test-TCP-2.02/META.json --- old/Test-TCP-2.01/META.json 2013-09-22 06:14:24.000000000 +0200 +++ new/Test-TCP-2.02/META.json 2013-10-30 04:23:09.000000000 +0100 @@ -4,8 +4,10 @@ "Tokuhiro Matsuno <[email protected]>" ], "dynamic_config" : 0, - "generated_by" : "Minilla/v0.4.5", - "license" : "perl_5", + "generated_by" : "Minilla/v0.7.5", + "license" : [ + "perl_5" + ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, "version" : "2" @@ -19,7 +21,8 @@ "share", "eg", "examples", - "author" + "author", + "builder" ] }, "prereqs" : { @@ -64,7 +67,7 @@ }, "Test::TCP" : { "file" : "lib/Test/TCP.pm", - "version" : "2.01" + "version" : "2.02" }, "Test::TCP::CheckPort" : { "file" : "lib/Test/TCP/CheckPort.pm" @@ -81,7 +84,7 @@ "web" : "https://github.com/tokuhirom/Test-TCP"; } }, - "version" : "2.01", + "version" : "2.02", "x_contributors" : [ "tokuhirom <tokuhirom@d0d07461-0603-4401-acd4-de1884942a52>", "mattn <mattn@d0d07461-0603-4401-acd4-de1884942a52>", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.01/META.yml new/Test-TCP-2.02/META.yml --- old/Test-TCP-2.01/META.yml 2013-09-22 06:14:24.000000000 +0200 +++ new/Test-TCP-2.02/META.yml 2013-10-30 04:23:09.000000000 +0100 @@ -11,7 +11,7 @@ CPAN::Meta::Prereqs: 0 Module::Build: 0.38 dynamic_config: 0 -generated_by: 'Minilla/v0.4.5, CPAN::Meta::Converter version 2.131490' +generated_by: 'Minilla/v0.7.5, CPAN::Meta::Converter version 2.132510' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -26,12 +26,13 @@ - eg - examples - author + - builder provides: Net::EmptyPort: file: lib/Net/EmptyPort.pm Test::TCP: file: lib/Test/TCP.pm - version: 2.01 + version: 2.02 Test::TCP::CheckPort: file: lib/Test/TCP/CheckPort.pm requires: @@ -44,7 +45,7 @@ bugtracker: https://github.com/tokuhirom/Test-TCP/issues homepage: https://github.com/tokuhirom/Test-TCP repository: git://github.com/tokuhirom/Test-TCP.git -version: 2.01 +version: 2.02 x_contributors: - 'tokuhirom <tokuhirom@d0d07461-0603-4401-acd4-de1884942a52>' - 'mattn <mattn@d0d07461-0603-4401-acd4-de1884942a52>' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.01/lib/Test/TCP.pm new/Test-TCP-2.02/lib/Test/TCP.pm --- old/Test-TCP-2.01/lib/Test/TCP.pm 2013-09-22 06:14:24.000000000 +0200 +++ new/Test-TCP-2.02/lib/Test/TCP.pm 2013-10-30 04:23:09.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use warnings; use 5.00800; -our $VERSION = '2.01'; +our $VERSION = '2.02'; use base qw/Exporter/; use IO::Socket::INET; use Test::SharedFork 0.12; @@ -76,21 +76,20 @@ sub start { my $self = shift; - if ( my $pid = fork() ) { - # parent. + my $pid = fork(); + die "fork() failed: $!" unless defined $pid; + + if ( $pid ) { # parent process. $self->{pid} = $pid; Test::TCP::wait_port($self->port, $self->{max_wait}); return; - } elsif ($pid == 0) { - # child process + } else { # child process $self->{code}->($self->port); # should not reach here if (kill 0, $self->{_my_pid}) { # warn only parent process still exists warn("[Test::TCP] Child process does not block(PID: $$, PPID: $self->{_my_pid})"); } exit 0; - } else { - die "fork failed: $!"; } } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
