Invoke memanalyze from the source path and hush up about killing the FTP
server as part of test cases
This commit is contained in:
parent
52560142bf
commit
a932803eac
@ -92,7 +92,7 @@ my $libtool;
|
|||||||
my $memdump="$LOGDIR/memdump";
|
my $memdump="$LOGDIR/memdump";
|
||||||
|
|
||||||
# the path to the script that analyzes the memory debug output file:
|
# the path to the script that analyzes the memory debug output file:
|
||||||
my $memanalyze="./memanalyze.pl";
|
my $memanalyze="$perl $srcdir/memanalyze.pl";
|
||||||
|
|
||||||
my $stunnel = checkcmd("stunnel4") || checkcmd("stunnel");
|
my $stunnel = checkcmd("stunnel4") || checkcmd("stunnel");
|
||||||
my $valgrind = checkcmd("valgrind");
|
my $valgrind = checkcmd("valgrind");
|
||||||
@ -1675,8 +1675,8 @@ sub singletest {
|
|||||||
chomp $serv;
|
chomp $serv;
|
||||||
if($serv =~ /^ftp(\d*)(-ipv6|)/) {
|
if($serv =~ /^ftp(\d*)(-ipv6|)/) {
|
||||||
my ($id, $ext) = ($1, $2);
|
my ($id, $ext) = ($1, $2);
|
||||||
print STDERR "SERV $serv $id $ext\n";
|
#print STDERR "SERV $serv $id $ext\n";
|
||||||
ftpkillslave($id, $ext, 1);
|
ftpkillslave($id, $ext, $verbose);
|
||||||
}
|
}
|
||||||
if($run{$serv}) {
|
if($run{$serv}) {
|
||||||
stopserver($run{$serv}); # the pid file is in the hash table
|
stopserver($run{$serv}); # the pid file is in the hash table
|
||||||
|
Loading…
x
Reference in New Issue
Block a user