--- perl-llin/test/s/mount.t	2006/07/02 18:17:23	99
+++ perl-llin/test/s/mount.t	2006/07/30 17:33:14	100
@@ -16,8 +16,14 @@
 	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) {