Fix parsing dotted hostnames.

This commit is contained in:
Dimitri Fontaine 2014-01-15 10:48:56 +01:00
parent 07c614c170
commit 6ccb1871f5

View File

@ -260,7 +260,7 @@
(declare (ignore unix))
(list :unix (when socket-directory (text socket-directory)))))
(defrule network-name (and namestring (? (and "." network-name)))
(defrule network-name (and namestring (* (and "." namestring)))
(:lambda (name)
(list :host (text name))))