From 1ee389d1210f207dcc66ab704db5ccb6de897246 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Tue, 14 Aug 2018 10:06:45 +0300 Subject: [PATCH] Fix parsing empty hostname fields in pgpass. Fixes #823. --- src/parsers/parse-pgpass.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/parsers/parse-pgpass.lisp b/src/parsers/parse-pgpass.lisp index 3eaaa7e..82efbee 100644 --- 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)