- my $s = $KNOWN_TLS{$port} // $KNOWN_STARTTLS{$port};
- $scheme //= $s if defined $s;
- } elsif (index($l, '/') != 0) { # unix socket
- $port //= $SCHEME2PORT{$scheme} if $scheme;
- $port // die "no port in listen=$l\n";
+ $scheme //= $KNOWN_TLS{$port} // $KNOWN_STARTTLS{$port};
+ }
+ $scheme or die "unable to determine URL scheme of $orig\n";
+ if (!defined($port) && index($l, '/') != 0) { # unix socket
+ $port = $SCHEME2PORT{$scheme} //
+ die "no port in listen=$orig\n";