Fix parsing empty hostname fields in pgpass.

Fixes dimitri#823.
loveland · Aug 14, 2018 · 1ee389d · 1ee389d
1 parent 34cc253
commit 1ee389d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/parsers/parse-pgpass.lisp b/src/parsers/parse-pgpass.lisp
@@ -19,11 +19,11 @@
                                  (pgpass-char-p character))))
   (:lambda (e) (text e)))
 
-(defrule pgpass-line (and pgpass-entry #\: pgpass-entry #\:
+(defrule pgpass-line (and (? pgpass-entry) #\: pgpass-entry #\:
                           pgpass-entry #\: pgpass-entry #\:
                           (? pgpass-entry))
   (:lambda (pl)
-    (make-pgpass :hostname (first pl)
+    (make-pgpass :hostname (or (first pl) "localhost")
                  :port (third pl)
                  :database (fifth pl)
                  :username (seventh pl)