r30906 - in /branches/upstream/libtest-http-server-simple-perl/current: Changes META.yml SIGNATURE lib/Test/HTTP/Server/Simple.pm
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Fri Feb 20 19:22:52 UTC 2009
Author: antonio-guest
Date: Fri Feb 20 19:22:49 2009
New Revision: 30906
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30906
Log:
[svn-upgrade] Integrating new upstream version, libtest-http-server-simple-perl (0.10)
Modified:
branches/upstream/libtest-http-server-simple-perl/current/Changes
branches/upstream/libtest-http-server-simple-perl/current/META.yml
branches/upstream/libtest-http-server-simple-perl/current/SIGNATURE
branches/upstream/libtest-http-server-simple-perl/current/lib/Test/HTTP/Server/Simple.pm
Modified: branches/upstream/libtest-http-server-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-http-server-simple-perl/current/Changes?rev=30906&op=diff
==============================================================================
--- branches/upstream/libtest-http-server-simple-perl/current/Changes (original)
+++ branches/upstream/libtest-http-server-simple-perl/current/Changes Fri Feb 20 19:22:49 2009
@@ -1,8 +1,15 @@
Revision history for Test-HTTP-Server-Simple
+
+0.10 Thu Feb 19 22:51:02 EST 2009
+ Remove StashWarnings and move into its own dist (removes Storable dep)
+ Fix long-standing bug where, when under 'prove', servers didn't get killed
+ Deal better with having multiple child PIDs
+
+0.09 Tue May 6 18:05:17 EDT 2008
+ Better bulletproofing for reaping kids
0.08 Tue May 6 14:14:13 EDT 2008
Releng fixups
-
0.07 Tue May 6 14:00:50 EST 2008
Be more insistent about sending signals on END
@@ -12,21 +19,19 @@
META.yml SHA1 SUM issue
0.05 Tue May 8 12:30:09 EDT 2007
-
-
No functionality changes. Just some releng cleanups
0.04
- Patch from SMUELLER to add Win32 Support - http://rt.cpan.org/Public/Bug/Display.html?id=19564
+ Patch from SMUELLER to add Win32 Support - http://rt.cpan.org/Public/Bug/Display.html?id=19564
0.03 Wed Jul 5 22:55:39 2006
- Kill "waiting for child to start up" message.
+ Kill "waiting for child to start up" message.
0.02 Tue Aug 02 18:16:00 2005
- Change API to make it a mixin.
- Make child signal parent when it's ready, and make the parent-killing-child
- be much nicer than a -9.
+ Change API to make it a mixin.
+ Make child signal parent when it's ready, and make the parent-killing-child
+ be much nicer than a -9.
0.01 Thu Jun 16 18:16:56 2005
- Initial release.
+ Initial release.
Modified: branches/upstream/libtest-http-server-simple-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-http-server-simple-perl/current/META.yml?rev=30906&op=diff
==============================================================================
--- branches/upstream/libtest-http-server-simple-perl/current/META.yml (original)
+++ branches/upstream/libtest-http-server-simple-perl/current/META.yml Fri Feb 20 19:22:49 2009
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Test-HTTP-Server-Simple
-version: 0.09
+version: 0.10
version_from: lib/Test/HTTP/Server/Simple.pm
installdirs: site
requires:
Modified: branches/upstream/libtest-http-server-simple-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-http-server-simple-perl/current/SIGNATURE?rev=30906&op=diff
==============================================================================
--- branches/upstream/libtest-http-server-simple-perl/current/SIGNATURE (original)
+++ branches/upstream/libtest-http-server-simple-perl/current/SIGNATURE Fri Feb 20 19:22:49 2009
@@ -14,20 +14,20 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 7298a41d0e8b2781b244264034d5a2af8c5e0d40 Changes
+SHA1 93793c21a7cc3cd2aa546fac076c2107d0efc679 Changes
SHA1 fde2e498ced242649142d34769cdb32ec5ba17dd MANIFEST
-SHA1 c55b48910a38d99d8a4ec851cce204689e2a6e18 META.yml
+SHA1 2c76cb02a449f0c4dcbc22d23f4f05c6a77ce6ae META.yml
SHA1 bc05af0bffcf1216bc552bd0e62608902e7b15bf Makefile.PL
SHA1 fa0e7c54e60cea400aab16e8f4b3044958a87790 README
-SHA1 0c03682828a7cf8dab829f68173e74ab0e1aa2db lib/Test/HTTP/Server/Simple.pm
+SHA1 8cb3d05920af2055065e8fd586857b7c85a9825f lib/Test/HTTP/Server/Simple.pm
SHA1 6c3fc19c093bda0b4e8077ebb7ceec2f8944b7d2 t/00.load.t
SHA1 1bdea5dc9c47d345d49089a684f2c59190ad4747 t/01.basic.t
SHA1 6da39b48ce64b584e4c3274bff96fc76ff484820 t/pod-coverage.t
SHA1 0190346d7072d458c8a10a45c19f86db641dcc48 t/pod.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.8 (Darwin)
+Version: GnuPG v2.0.9 (GNU/Linux)
-iD8DBQFIINYSEi9d9xCOQEYRAm30AKCNGs4WpQ72ROex7av8iBZIx9anTgCfaHcS
-X09kzGBNX/iK0szu4dbDCTA=
-=vWs5
+iEYEARECAAYFAkmeKQ8ACgkQMflWJZZAbqCMVgCghssDRM2pCi1rbcwm7aRcA0dm
++TsAnAwtOYOt6Y+7TRGyRA6Mh1RRY1VT
+=IvMA
-----END PGP SIGNATURE-----
Modified: branches/upstream/libtest-http-server-simple-perl/current/lib/Test/HTTP/Server/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-http-server-simple-perl/current/lib/Test/HTTP/Server/Simple.pm?rev=30906&op=diff
==============================================================================
--- branches/upstream/libtest-http-server-simple-perl/current/lib/Test/HTTP/Server/Simple.pm (original)
+++ branches/upstream/libtest-http-server-simple-perl/current/lib/Test/HTTP/Server/Simple.pm Fri Feb 20 19:22:49 2009
@@ -1,6 +1,6 @@
package Test::HTTP::Server::Simple;
-our $VERSION = '0.09';
+our $VERSION = '0.10';
use warnings;
use strict;
@@ -67,7 +67,11 @@
# If an interrupt kills perl, END blocks are not run. This
# essentially converts interrupts (like CTRL-C) into a standard
# perl exit (even if we're inside an eval {}).
-$SIG{INT} = sub { warn "INT:$$"; exit };
+$SIG{INT} = sub { exit };
+
+# In case the surrounding 'prove' or similar harness got the SIGINT
+# before we did, and hence STDERR is closed.
+$SIG{PIPE} = 'IGNORE';
END {
local $?;
@@ -82,9 +86,15 @@
}
else {
@CHILD_PIDS = grep {kill 0, $_} @CHILD_PIDS;
- while (@CHILD_PIDS) {
+ if (@CHILD_PIDS) {
kill 'USR1', @CHILD_PIDS;
- local $SIG{ALRM} = sub {die};
+ local $SIG{ALRM} = sub {
+ use POSIX ":sys_wait_h";
+ my @last_chance = grep { waitpid($_, WNOHANG) == -1 }
+ grep { kill 0, $_ } @CHILD_PIDS;
+ die 'uncleaned Test::HTTP::Server::Simple processes: '.join(',', at last_chance)
+ if @last_chance;
+ };
alarm(5);
eval {
my $pid;
@@ -92,6 +102,7 @@
while $pid = wait and $pid > 0 and @CHILD_PIDS;
@CHILD_PIDS = () if $pid == -1;
};
+ die $@ if $@;
alarm(0);
}
}
More information about the Pkg-perl-cvs-commits
mailing list