File 7558c12-host_conf-spaces.patch of Package augeas.2416
From 7558c12259d0c46cace7c8635e25281296337ea9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Bosdonnat?= <cedric.bosdonnat@free.fr>
Date: Tue, 8 Mar 2016 11:09:28 +0100
Subject: [PATCH] host_conf lens: spaces between list items support
List items are separated by commas in host.conf, but we may find spaces
on top of the comma.
---
lenses/host_conf.aug | 2 +-
lenses/tests/test_host_conf.aug | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lenses/host_conf.aug b/lenses/host_conf.aug
index 00a3492..294975b 100644
--- a/lenses/host_conf.aug
+++ b/lenses/host_conf.aug
@@ -44,7 +44,7 @@ let bool_warn (kw:regexp) = Build.key_value_line kw Sep.space sto_bool_warn
(* View: list
A list of items *)
let list (kw:regexp) (elem:string) =
- let list_elems = Build.opt_list [seq elem . store Rx.word] (Sep.comma) in
+ let list_elems = Build.opt_list [seq elem . store Rx.word] (Sep.comma . Sep.opt_space) in
Build.key_value_line kw Sep.space list_elems
(* View: trim *)
diff --git a/lenses/tests/test_host_conf.aug b/lenses/tests/test_host_conf.aug
index 146abde..f0df5ab 100644
--- a/lenses/tests/test_host_conf.aug
+++ b/lenses/tests/test_host_conf.aug
@@ -3,7 +3,7 @@ module Test_Host_Conf =
let conf = "
# /etc/host.conf
# We have named running, but no NIS (yet)
-order bind,hosts
+order bind, hosts
# Allow multiple addrs
multi on
# Guard against spoof attempts
--
2.6.6