[augeas-devel] [PATCH 1 of 5] Allow lower case characters in shell vars

[David Lutterkort]

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


# HG changeset patch
# User David Lutterkort <dlutter at redhat.com>
# Date 1211562965 25200
# Node ID ab1c134964d93741daf8b60cb03b0334431c2376
# Parent  3f4414038a3053a3fb17ac330e269466d6cdd55c
Allow lower case characters in shell vars

diff -r 3f4414038a30 -r ab1c134964d9 lenses/shellvars.aug
--- a/lenses/shellvars.aug	Fri May 23 10:14:25 2008 -0700
+++ b/lenses/shellvars.aug	Fri May 23 10:16:05 2008 -0700
@@ -4,7 +4,7 @@ module Shellvars =
 
   let eol = Util.del_str "\n"
 
-  let key_re = /[][A-Z0-9_]+/
+  let key_re = /[][A-Za-z0-9_]+/
   let eq = Util.del_str "="
   let value = /[^\n]*/
 
diff -r 3f4414038a30 -r ab1c134964d9 lenses/tests/test_shellvars.aug
--- a/lenses/tests/test_shellvars.aug	Fri May 23 10:14:25 2008 -0700
+++ b/lenses/tests/test_shellvars.aug	Fri May 23 10:16:05 2008 -0700
@@ -47,6 +47,9 @@ ONBOOT=yes
   test Shellvars.lns get key_brack =
     { "SOME_KEY[1]" = "" } { "DEVICE" = "eth0" }
 
+  test Shellvars.lns get "smartd_opts=\"-q never\"\n" = 
+    { "smartd_opts" = "\"-q never\"" }
+
 (* Local Variables: *)
 (* mode: caml       *)
 (* End:             *)