X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=test%2Fs%2Fmount.t;h=affd658707521987ba3075ff95edaf7e9f547909;hb=fb85a3f6f235720f4882314c98ca6134a157241f;hp=da93d1d9e1cf5b0b95cba8caa678e52ce4350b4a;hpb=54f1ee63f81bc2943fab158b6034c680654b0981;p=perl-fuse.git

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) {