tests/runtests.pl: cleanup copy&paste mistakes and unused code

Reviewed-by: Jay Satiro
Part of #7481
This commit is contained in:
Marc Hoersken 2021-07-23 20:05:47 +02:00
parent 3a280a19cc
commit 893f39c596
No known key found for this signature in database
GPG Key ID: 61E03CBED7BC859E

View File

@ -1691,7 +1691,6 @@ sub runhttpsserver {
}
my $pid2;
my $pid3;
my $httpspid;
my $port = 24512; # start attempt
for (1 .. 10) {
@ -1862,7 +1861,6 @@ sub runpingpongserver {
$doesntrun{$pidfile} = 1;
return (0,0);
}
$pid2 = $pid3;
logmsg "RUN: $srvrname server is PID $ftppid port $port\n" if($verbose);
@ -1957,10 +1955,9 @@ sub runftpsserver {
$flags .= "--stunnel \"$stunnel\" --srcdir \"$srcdir\" ";
$flags .= "--connect $FTPPORT";
my $port = 26713;
my $pid2;
my $pid3;
my $ftpspid;
my $pid2;
my $port = 26713;
for (1 .. 10) {
$port += int(rand(700));
my $options = "$flags --accept $port";
@ -5158,7 +5155,7 @@ sub startservers {
}
logmsg sprintf ("* pid SMB => %d %d\n", $pid, $pid2)
if($verbose);
$run{'dict'}="$pid $pid2";
$run{'smb'}="$pid $pid2";
}
}
elsif($what eq "telnet") {
@ -5170,7 +5167,7 @@ sub startservers {
}
logmsg sprintf ("* pid neg TELNET => %d %d\n", $pid, $pid2)
if($verbose);
$run{'dict'}="$pid $pid2";
$run{'telnet'}="$pid $pid2";
}
}
elsif($what eq "none") {