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