|
|
@ -16,6 +16,7 @@ use File::Path; |
|
|
|
use File::Temp 'tempdir'; |
|
|
|
use File::Temp 'tempdir'; |
|
|
|
|
|
|
|
|
|
|
|
my $use_vg = $ENV{USE_VALGRIND}; |
|
|
|
my $use_vg = $ENV{USE_VALGRIND}; |
|
|
|
|
|
|
|
my $use_st = $ENV{USE_STRACE}; |
|
|
|
my $mbsync = getcwd()."/mbsync"; |
|
|
|
my $mbsync = getcwd()."/mbsync"; |
|
|
|
|
|
|
|
|
|
|
|
my (@match, $start); |
|
|
|
my (@match, $start); |
|
|
@ -349,6 +350,8 @@ sub runsync($$$) |
|
|
|
my $cmd; |
|
|
|
my $cmd; |
|
|
|
if ($use_vg) { |
|
|
|
if ($use_vg) { |
|
|
|
$cmd = "valgrind -q --error-exitcode=1 "; |
|
|
|
$cmd = "valgrind -q --error-exitcode=1 "; |
|
|
|
|
|
|
|
} elsif ($use_st) { |
|
|
|
|
|
|
|
$cmd = "strace "; |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
$flags .= " -D"; |
|
|
|
$flags .= " -D"; |
|
|
|
} |
|
|
|
} |
|
|
|