From fb85a3f6f235720f4882314c98ca6134a157241f Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 30 Jul 2006 17:33:14 +0000
Subject: [PATCH] changes from Nick Waterman <laptop@noseynick.com> to fix race
 condition in test/s/mount.t

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/fuse/perl-llin@100 6e4b0b00-1209-0410-87b2-b275959b5705
---
 test/s/mount.t | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/test/s/mount.t b/test/s/mount.t
index da93d1d..affd658 100644
--- a/test/s/mount.t
+++ b/test/s/mount.t
@@ -16,8 +16,14 @@ if(!fork()) {
 	exec("perl -Iblib/lib -Iblib/arch $_loop $_point");
 	exit(1);
 }
-select(undef, undef, undef, 0.5);
-my ($success) = `cat /proc/mounts` =~ / $_point /;
+
+my ($success, $count) = (0,0);
+while ($count++ < 50 && !$success) {
+	select(undef, undef, undef, 0.1);
+    ($success) = `cat /proc/mounts` =~ / $_point /;
+}
+diag "Mounted in ", $count/10, " secs";
+
 ok($success,"mount succeeded");
 system("rm -rf $_real");
 unless($success) {
-- 
2.20.1