以下代码用于在{{src/clj/clojure/core/server.clj}}中验证端口号是否有效
(defn- validate-opts "验证服务器配置选项" [{:keys [name port accept] :as opts}] (doseq [prop [:name :port :accept]] (required opts prop)) (when (or (not (integer? port)) (not (< -1 port 65535))) (throw (ex-info (str "无效套接字服务器端口: " port) opts))))
但这有一点不正确,因为排除了一部分65535端口,但实际上65535是一个有效的端口。
`
user=> (defn is-invalid-port [port] (or (not (integer? port)) (not (< -1 port 65535))))
'user/is-invalid-port
user=> (is-invalid-port 65534)
false
user=> (is-invalid-port 65535) ; 应该是false!
true
user=> (is-invalid-port 65536)
true
`
这得到了(链接:https://docs.oracle.com/javase/7/docs/api/java/net/ServerSocket.html#ServerSocket(int) 文本:{{ServerSocket}}'的说明书)的支持。
{quote}
IllegalArgumentException - 如果端口号参数超出了指定范围内有效的端口号范围,范围是0到65535,包括65535。
{quote}
修复: port-65535-obo-v2.patch
预审: Alex Miller