r74991 - in /trunk/libtest-tcp-perl: ./ debian/ inc/Module/ inc/Module/Install/ inc/Test/ lib/Test/
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Wed Jun 1 11:42:57 UTC 2011
Author: periapt-guest
Date: Wed Jun 1 11:42:23 2011
New Revision: 74991
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74991
Log:
New upstream release
Removed:
trunk/libtest-tcp-perl/inc/Module/Install/Include.pm
trunk/libtest-tcp-perl/inc/Test/
Modified:
trunk/libtest-tcp-perl/.gitignore
trunk/libtest-tcp-perl/Changes
trunk/libtest-tcp-perl/MANIFEST
trunk/libtest-tcp-perl/META.yml
trunk/libtest-tcp-perl/Makefile.PL
trunk/libtest-tcp-perl/debian/changelog
trunk/libtest-tcp-perl/inc/Module/Install.pm
trunk/libtest-tcp-perl/inc/Module/Install/Base.pm
trunk/libtest-tcp-perl/inc/Module/Install/Can.pm
trunk/libtest-tcp-perl/inc/Module/Install/Fetch.pm
trunk/libtest-tcp-perl/inc/Module/Install/Makefile.pm
trunk/libtest-tcp-perl/inc/Module/Install/Metadata.pm
trunk/libtest-tcp-perl/inc/Module/Install/Win32.pm
trunk/libtest-tcp-perl/inc/Module/Install/WriteAll.pm
trunk/libtest-tcp-perl/lib/Test/TCP.pm
Modified: trunk/libtest-tcp-perl/.gitignore
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/.gitignore?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/.gitignore (original)
+++ trunk/libtest-tcp-perl/.gitignore Wed Jun 1 11:42:23 2011
@@ -7,3 +7,4 @@
^\.git/
MANIFEST.bak
*.old
+MYMETA.yml
Modified: trunk/libtest-tcp-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/Changes?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/Changes (original)
+++ trunk/libtest-tcp-perl/Changes Wed Jun 1 11:42:23 2011
@@ -1,4 +1,11 @@
Revision history for Perl extension Test::TCP
+
+1.13
+
+ - RT#67292: Tests are blocking in Windows 7.
+ https://rt.cpan.org/Ticket/Display.html?id=67292
+ - change port number range from 10000 .. 11000 to 50000 .. 60000 to respect IANA.
+ https://rt.cpan.org/Ticket/Display.html?id=64012
1.12
Modified: trunk/libtest-tcp-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/MANIFEST?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/MANIFEST (original)
+++ trunk/libtest-tcp-perl/MANIFEST Wed Jun 1 11:42:23 2011
@@ -5,12 +5,10 @@
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
-inc/Test/More.pm
lib/Test/TCP.pm
Makefile.PL
MANIFEST This list of files
Modified: trunk/libtest-tcp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/META.yml?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/META.yml (original)
+++ trunk/libtest-tcp-perl/META.yml Wed Jun 1 11:42:23 2011
@@ -4,10 +4,11 @@
- 'Tokuhiro Matsuno <tokuhirom at gmail.com>'
build_requires:
ExtUtils::MakeMaker: 6.42
+ Test::More: 0.98
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -24,4 +25,4 @@
perl: 5.8.0
resources:
license: http://dev.perl.org/licenses/
-version: 1.12
+version: 1.13
Modified: trunk/libtest-tcp-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/Makefile.PL?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/Makefile.PL (original)
+++ trunk/libtest-tcp-perl/Makefile.PL Wed Jun 1 11:42:23 2011
@@ -10,6 +10,5 @@
tests 't/*.t t/*/*.t t/*/*/*.t t/*/*/*/*.t';
test_requires 'Test::More' => 0.98;
author_tests 'xt';
-auto_include;
WriteAll;
Modified: trunk/libtest-tcp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/debian/changelog?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/debian/changelog (original)
+++ trunk/libtest-tcp-perl/debian/changelog Wed Jun 1 11:42:23 2011
@@ -1,3 +1,9 @@
+libtest-tcp-perl (1.13-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Wed, 01 Jun 2011 12:46:55 +0100
+
libtest-tcp-perl (1.12-1) unstable; urgency=low
* Team upload.
Modified: trunk/libtest-tcp-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install.pm Wed Jun 1 11:42:23 2011
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: trunk/libtest-tcp-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install/Base.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install/Base.pm Wed Jun 1 11:42:23 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libtest-tcp-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install/Can.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install/Can.pm Wed Jun 1 11:42:23 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libtest-tcp-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install/Fetch.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install/Fetch.pm Wed Jun 1 11:42:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libtest-tcp-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install/Makefile.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install/Makefile.pm Wed Jun 1 11:42:23 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libtest-tcp-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install/Metadata.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install/Metadata.pm Wed Jun 1 11:42:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: trunk/libtest-tcp-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install/Win32.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install/Win32.pm Wed Jun 1 11:42:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libtest-tcp-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Module/Install/WriteAll.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libtest-tcp-perl/inc/Module/Install/WriteAll.pm Wed Jun 1 11:42:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libtest-tcp-perl/lib/Test/TCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/lib/Test/TCP.pm?rev=74991&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/lib/Test/TCP.pm (original)
+++ trunk/libtest-tcp-perl/lib/Test/TCP.pm Wed Jun 1 11:42:23 2011
@@ -2,7 +2,7 @@
use strict;
use warnings;
use 5.00800;
-our $VERSION = '1.12';
+our $VERSION = '1.13';
use base qw/Exporter/;
use IO::Socket::INET;
use Test::SharedFork 0.12;
@@ -17,18 +17,20 @@
# process does not die when received SIGTERM, on win32.
my $TERMSIG = $^O eq 'MSWin32' ? 'KILL' : 'TERM';
+# get a empty port on 49152 .. 65535
+# http://www.iana.org/assignments/port-numbers
sub empty_port {
my $port = do {
if (@_) {
my $p = $_[0];
- $p = 19000 unless $p =~ /^[0-9]+$/ && $p < 19000;
+ $p = 49152 unless $p =~ /^[0-9]+$/ && $p < 49152;
$p;
} else {
- 10000 + int(rand()*1000);
+ 50000 + int(rand()*1000);
}
};
- while ( $port++ < 20000 ) {
+ while ( $port++ < 60000 ) {
next if _check_port($port);
my $sock = IO::Socket::INET->new(
Listen => 5,
@@ -130,7 +132,22 @@
return unless defined $self->{pid};
return unless $self->{_my_pid} == $$;
- kill $TERMSIG => $self->{pid};
+ # This is a workaround for win32 fork emulation's bug.
+ #
+ # kill is inherently unsafe for pseudo-processes in Windows
+ # and the process calling kill(9, $pid) may be destabilized
+ # The call to Sleep will decrease the frequency of this problems
+ #
+ # SEE ALSO:
+ # http://www.gossamer-threads.com/lists/perl/porters/261805
+ # https://rt.cpan.org/Ticket/Display.html?id=67292
+ Win32::Sleep(0) if $^O eq "MSWin32"; # will relinquish the remainder of its time slice
+
+ kill $TERMSIG => $self->{pid};
+
+ Win32::Sleep(0) if $^O eq "MSWin32"; # will relinquish the remainder of its time slice
+
+
local $?; # waitpid modifies original $?.
LOOP: while (1) {
my $kid = waitpid( $self->{pid}, 0 );
More information about the Pkg-perl-cvs-commits
mailing list