|
@@ -18,8 +18,11 @@
|
|
|
|
|
|
use warnings;
|
|
|
use strict;
|
|
|
+use Cwd;
|
|
|
use File::Path;
|
|
|
|
|
|
+my $mbsync = getcwd()."/mbsync";
|
|
|
+
|
|
|
-d "tmp" or mkdir "tmp";
|
|
|
chdir "tmp" or die "Cannot enter temp direcory.\n";
|
|
|
|
|
@@ -276,8 +279,8 @@ sub killcfg()
|
|
|
# $options
|
|
|
sub runsync($)
|
|
|
{
|
|
|
-# open FILE, "valgrind -q --log-fd=3 ../mbsync ".shift()." -c .mbsyncrc test 3>&2 2>&1 |";
|
|
|
- open FILE, "../mbsync -D -Z ".shift()." -c .mbsyncrc test 2>&1 |";
|
|
|
+# open FILE, "valgrind -q --log-fd=3 $mbsync ".shift()." -c .mbsyncrc test 3>&2 2>&1 |";
|
|
|
+ open FILE, "$mbsync -D -Z ".shift()." -c .mbsyncrc test 2>&1 |";
|
|
|
my @out = <FILE>;
|
|
|
close FILE or push(@out, $! ? "*** error closing mbsync: $!\n" : "*** mbsync exited with signal ".($?&127).", code ".($?>>8)."\n");
|
|
|
return $?, @out;
|