[augeas-devel] [PATCH] Allow spaces in entry values

[raphink at gmail.com]

# HG changeset patch
# User Raphael Pinson <raphink at gmail.com>
# Date 1216986332 -7200
# Node ID 1b45132a77ca0062db7c401ef110d280de16888b
# Parent  86411abff2eec6aa4364b7d3f43fe2e94e3ab31c
Allow spaces in entry values

diff -r 86411abff2ee -r 1b45132a77ca lenses/inifile.aug
--- a/lenses/inifile.aug	Fri Jul 25 13:22:27 2008 +0200
+++ b/lenses/inifile.aug	Fri Jul 25 13:45:32 2008 +0200
@@ -11,7 +11,7 @@ module IniFile  =
     let value_sep          = del /[ \t]*=/ " = "
     let value_sepwithcolon = del /[ \t]*(=|:)/ " = "
     let value_to_eol       = del /[ \t]*/ " " . store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
-    let value_to_comment   = del /[ \t]*/ "" . store /[^;# \t\n]+/
+    let value_to_comment   = del /[ \t]*/ " " . store /[^;# \t\n][^;#\n]*[^;# \t\n]|[^;# \t\n]/
 
 
     (* Define comment and empty strings *)