/[fuse.before_github]/perl-llin/test/helper.pm
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/helper.pm

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

revision 21 by dpavlin, Mon Jan 2 19:50:33 2006 UTC revision 105 by dpavlin, Wed Nov 29 13:23:28 2006 UTC
# Line 20  if($0 !~ qr|s/u?mount\.t$|) { Line 20  if($0 !~ qr|s/u?mount\.t$|) {
20                          }                          }
21                  }                  }
22          }          }
23          system("ls $_point >&/dev/null");          system("ls $_point >/dev/null");
24          $reject = 1 if (POSIX::WEXITSTATUS($?));          $reject = 1 if (POSIX::WEXITSTATUS($?));
25          die "not properly mounted\n" if $reject;          die "not properly mounted\n" if $reject;
26  }  }
Legend:
Removed from v.21  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.26