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