r19888 - /trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Mon May 12 04:19:36 2008
New Revision: 19888

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19888
Log:
Second try, seems to work

Modified:
    trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch

Modified: trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch?rev=19888&op=diff
==============================================================================
--- trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch (original)
+++ trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch Mon May 12 04:19:36 2008
@@ -28,9 +28,9 @@
 +    if ($child) { # parent
 +        my $s = IO::Select->new;
 +        $s->add($readfh);
-+	my $now = time; my $left = 5;
++	my $now = time; my $left = 0;
 +	my @ready;
-+	while(not @ready and $left > 0) {
++	while(not @ready and $left < 5) {
 +		@ready = $s->can_read($left);
 +		$left = time - $now;
 +	}