r18955 - in /trunk/libtest-http-server-simple-perl/debian/patches: ./ series sigusr1.patch
yvesago-guest at users.alioth.debian.org
yvesago-guest at users.alioth.debian.org
Mon Apr 21 12:48:47 UTC 2008
Author: yvesago-guest
Date: Mon Apr 21 12:48:47 2008
New Revision: 18955
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=18955
Log:
strange pb with signal in xen
Added:
trunk/libtest-http-server-simple-perl/debian/patches/
trunk/libtest-http-server-simple-perl/debian/patches/series
trunk/libtest-http-server-simple-perl/debian/patches/sigusr1.patch
Added: trunk/libtest-http-server-simple-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-http-server-simple-perl/debian/patches/series?rev=18955&op=file
==============================================================================
--- trunk/libtest-http-server-simple-perl/debian/patches/series (added)
+++ trunk/libtest-http-server-simple-perl/debian/patches/series Mon Apr 21 12:48:47 2008
@@ -1,0 +1,1 @@
+sigusr1.patch
Added: trunk/libtest-http-server-simple-perl/debian/patches/sigusr1.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-http-server-simple-perl/debian/patches/sigusr1.patch?rev=18955&op=file
==============================================================================
--- trunk/libtest-http-server-simple-perl/debian/patches/sigusr1.patch (added)
+++ trunk/libtest-http-server-simple-perl/debian/patches/sigusr1.patch Mon Apr 21 12:48:47 2008
@@ -1,0 +1,19 @@
+Index: libtest-http-server-simple-perl/lib/Test/HTTP/Server/Simple.pm
+===================================================================
+--- libtest-http-server-simple-perl.orig/lib/Test/HTTP/Server/Simple.pm 2008-04-21 14:07:34.000000000 +0200
++++ libtest-http-server-simple-perl/lib/Test/HTTP/Server/Simple.pm 2008-04-21 14:10:27.000000000 +0200
+@@ -143,7 +143,13 @@
+ $Event->wait();
+ }
+ else {
+- 1 while not $child_loaded_yet;
++ #1 while not $child_loaded_yet;
++ # Yves: safely wait USR1 sig
++ # need more search on xen or virtualbox
++ foreach (1..3) {
++ last if ($child_loaded_yet);
++ sleep 1;
++ }
+ }
+
+ $Tester->ok(1, $text);
More information about the Pkg-perl-cvs-commits
mailing list