16 |
exec("perl -Iblib/lib -Iblib/arch $_loop $_point"); |
exec("perl -Iblib/lib -Iblib/arch $_loop $_point"); |
17 |
exit(1); |
exit(1); |
18 |
} |
} |
19 |
select(undef, undef, undef, 0.5); |
|
20 |
my ($success) = `cat /proc/mounts` =~ / $_point /; |
my ($success, $count) = (0,0); |
21 |
|
while ($count++ < 50 && !$success) { |
22 |
|
select(undef, undef, undef, 0.1); |
23 |
|
($success) = `cat /proc/mounts` =~ / $_point /; |
24 |
|
} |
25 |
|
diag "Mounted in ", $count/10, " secs"; |
26 |
|
|
27 |
ok($success,"mount succeeded"); |
ok($success,"mount succeeded"); |
28 |
system("rm -rf $_real"); |
system("rm -rf $_real"); |
29 |
unless($success) { |
unless($success) { |