Made try-port error handling more specific

This commit is contained in:
James Reeves 2012-02-11 21:08:06 +00:00
parent ee9c8eecad
commit 2bf33a33a6

View file

@ -10,7 +10,7 @@
(if-not (sequential? port) (if-not (sequential? port)
(run-server port) (run-server port)
(try (run-server (first port)) (try (run-server (first port))
(catch Exception ex (catch java.net.BindException ex
(if-let [port (next port)] (if-let [port (next port)]
(try-port port run-server) (try-port port run-server)
(throw ex)))))) (throw ex))))))