File 0001-smbusers-add-support-for-comments.patch of Package augeas.6793

From 3a406ebb82f3fb40cc33403db48a72aa74f66f5d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Bosdonnat?= <cedric.bosdonnat@free.fr>
Date: Fri, 15 Apr 2016 16:37:05 +0200
Subject: [PATCH] smbusers: add support for ; comments

---
 lenses/smbusers.aug            | 2 +-
 lenses/tests/test_smbusers.aug | 2 ++
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lenses/smbusers.aug b/lenses/smbusers.aug
index c9aed37..aa70dc1 100644
--- a/lenses/smbusers.aug
+++ b/lenses/smbusers.aug
@@ -25,7 +25,7 @@ let entry =
   in Build.key_value_line Rx.word Sep.space_equal usernames
 
 (* View: lns *)
-let lns = (Util.empty | Util.comment | entry)*
+let lns = (Util.empty | (Util.comment_generic /[ \t]*[#;][ \t]*/ "# ") | entry)*
 
 (* Variable: filter *)
 let filter = incl "/etc/samba/smbusers"
diff --git a/lenses/tests/test_smbusers.aug b/lenses/tests/test_smbusers.aug
index a4c8371..167e88b 100644
--- a/lenses/tests/test_smbusers.aug
+++ b/lenses/tests/test_smbusers.aug
@@ -12,6 +12,7 @@ jarwin = JosephArwin
 manderso = MarkAnderson MarkusAndersonus
 users = @account
 nobody = *
+;commented = SomeOne
 "
 
 (* Test: Simplevars.lns *)
@@ -27,3 +28,4 @@ test SmbUsers.lns get conf =
      { "username" = "@account" } }
    { "nobody"
      { "username" = "*" } }
+   { "#comment" = "commented = SomeOne" }
-- 
2.6.6