summaryrefslogtreecommitdiff
path: root/tests/serverhelp.pm
diff options
context:
space:
mode:
authorYang Tse <yangsita@gmail.com>2010-02-01 12:05:08 +0000
committerYang Tse <yangsita@gmail.com>2010-02-01 12:05:08 +0000
commit35fbeda0032860929292896f73ab37a274cb5fa1 (patch)
tree16495b58a5e3768697b9d43e79cb5dc63537cb45 /tests/serverhelp.pm
parent715e3a806f333320f3d8a1172d7f000db59edcf6 (diff)
downloadcurl-35fbeda0032860929292896f73ab37a274cb5fa1.tar.gz
Test suite support for RTSP
Diffstat (limited to 'tests/serverhelp.pm')
-rw-r--r--tests/serverhelp.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/serverhelp.pm b/tests/serverhelp.pm
index d34a821a1..41b7c6647 100644
--- a/tests/serverhelp.pm
+++ b/tests/serverhelp.pm
@@ -77,7 +77,7 @@ sub serverfactors {
$idnum = ($3 && ($3 > 1)) ? $3 : 1;
$ipvnum = ($4 && ($4 =~ /6$/)) ? 6 : 4;
}
- elsif($server =~ /^(tftp|sftp|socks|ssh)(\d*)(-ipv6|)$/) {
+ elsif($server =~ /^(tftp|sftp|socks|ssh|rtsp)(\d*)(-ipv6|)$/) {
$proto = $1;
$idnum = ($2 && ($2 > 1)) ? $2 : 1;
$ipvnum = ($3 && ($3 =~ /6$/)) ? 6 : 4;
@@ -97,7 +97,7 @@ sub servername_str {
$proto = uc($proto) if($proto);
die "unsupported protocol: $proto" unless($proto &&
- ($proto =~ /^(((FTP|HTTP|IMAP|POP3|SMTP)S?)|(TFTP|SFTP|SOCKS|SSH))$/));
+ ($proto =~ /^(((FTP|HTTP|IMAP|POP3|SMTP)S?)|(TFTP|SFTP|SOCKS|SSH|RTSP))$/));
$ipver = (not $ipver) ? 'ipv4' : lc($ipver);
die "unsupported IP version: $ipver" unless($ipver &&