From: Dan Fandrich <dan@coneharvesters.com>
Date: Sat, 8 Apr 2023 22:27:39 +0000 (-0700)
Subject: runtests: abort early if runpingpongserver is given a bad server type
X-Git-Tag: curl-8_1_0~174
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=19b062a492c29cba493b6865cfec652a8e2df063;p=thirdparty%2Fcurl.git

runtests: abort early if runpingpongserver is given a bad server type
---

diff --git a/tests/servers.pm b/tests/servers.pm
index b16a66f31c..0f63c585df 100644
--- a/tests/servers.pm
+++ b/tests/servers.pm
@@ -1468,6 +1468,13 @@ sub runhttptlsserver {
 #
 sub runpingpongserver {
     my ($proto, $id, $verb, $ipv6) = @_;
+
+    # Check the requested server
+    if($proto !~ /^(?:ftp|imap|pop3|smtp)$/) {
+        print STDERR "Unsupported protocol $proto!!\n";
+        return (0,0);
+    }
+
     my $ip = ($ipv6 && ($ipv6 =~ /6$/)) ? "$HOST6IP" : "$HOSTIP";
     my $ipvnum = ($ipv6 && ($ipv6 =~ /6$/)) ? 6 : 4;
     my $idnum = ($id && ($id =~ /^(\d+)$/) && ($id > 1)) ? $id : 1;
@@ -1532,13 +1539,7 @@ sub runpingpongserver {
     logmsg "RUN: $srvrname server is PID $ftppid port $port\n" if($verb);
 
     # Assign the correct port variable!
-    if($proto =~ /^(?:ftp|imap|pop3|smtp)$/) {
-        $PORT{$proto . ($ipvnum == 6? '6': '')} = $port;
-    }
-    else {
-        print STDERR "Unsupported protocol $proto!!\n";
-        return (0,0);
-    }
+    $PORT{$proto . ($ipvnum == 6? '6': '')} = $port;
 
     return ($pid2, $ftppid);
 }