Fix tftp and sftp supported protocols in servername_str()

This commit is contained in:
Yang Tse 2010-01-12 22:11:13 +00:00
Родитель 82f5ffff8f
Коммит b32a96eda0
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -70,7 +70,7 @@ sub servername_str {
$proto = uc($proto) if($proto);
die "unsupported protocol: $proto" unless($proto &&
($proto =~ /^(((FTP|HTTP|IMAP|POP3|SMTP|TFTP)S?)|(SOCKS|SSH))$/));
($proto =~ /^(((FTP|HTTP|IMAP|POP3|SMTP)S?)|(TFTP|SFTP|SOCKS|SSH))$/));
$ipver = (not $ipver) ? 'ipv4' : lc($ipver);
die "unsupported IP version: $ipver" unless($ipver &&