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

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

revision 18 by dpavlin, Sun Mar 20 00:36:05 2005 UTC revision 19 by dpavlin, Tue Dec 27 12:47:00 2005 UTC
# Line 2  Line 2 
2  package test::helper;  package test::helper;
3  use strict;  use strict;
4  use Exporter;  use Exporter;
5    use Config;
6  use POSIX qw(WEXITSTATUS);  use POSIX qw(WEXITSTATUS);
7  our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);  our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
8  @ISA = "Exporter";  @ISA = "Exporter";
9  @EXPORT_OK = qw($_loop $_point $_pidfile $_real);  @EXPORT_OK = qw($_loop $_point $_pidfile $_real);
10  our($_loop, $_point, $_pidfile, $_real) = ("examples/loopback.pl","/tmp/fusemnt-".$ENV{LOGNAME},"test/s/mounted.pid","/tmp/fusetest-".$ENV{LOGNAME});  our($_loop, $_point, $_pidfile, $_real) = ("","/tmp/fusemnt-".$ENV{LOGNAME},"test/s/mounted.pid","/tmp/fusetest-".$ENV{LOGNAME});
11    $_loop = $Config{useithreads} ? "examples/loopback_t.pl" : "examples/loopback.pl";
12  if($0 !~ qr|s/u?mount\.t$|) {  if($0 !~ qr|s/u?mount\.t$|) {
13          my ($reject) = 1;          my ($reject) = 1;
14          if(-f $_pidfile) {          if(-f $_pidfile) {

Legend:
Removed from v.18  
changed lines
  Added in v.19

  ViewVC Help
Powered by ViewVC 1.1.26