/[fuse.before_github]/perl-llin/test/s/mount.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /perl-llin/test/s/mount.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 100 by dpavlin, Sun Jul 30 17:33:14 2006 UTC revision 111 by dpavlin, Thu Nov 15 09:23:22 2007 UTC
# Line 20  if(!fork()) { Line 20  if(!fork()) {
20  my ($success, $count) = (0,0);  my ($success, $count) = (0,0);
21  while ($count++ < 50 && !$success) {  while ($count++ < 50 && !$success) {
22          select(undef, undef, undef, 0.1);          select(undef, undef, undef, 0.1);
23      ($success) = `cat /proc/mounts` =~ / $_point /;             ($success) = `mount` =~ / $_point /;
24  }  }
25  diag "Mounted in ", $count/10, " secs";  diag "Mounted in ", $count/10, " secs";
26    
Legend:
Removed from v.100  
changed lines
  Added in v.111
  ViewVC Help
Powered by ViewVC 1.1.26