[augeas-devel] augeas: master - Interfaces: accept options containing '_'

[David Lutterkort]

Gitweb:        http://git.fedorahosted.org/git/augeas.git?p=augeas.git;a=commitdiff;h=40fdbcb38780f100f900f3588dd101caf5b41a1c
Commit:        40fdbcb38780f100f900f3588dd101caf5b41a1c
Parent:        16e6670a11f83f3cc6ad1129a23cf39d80c41234
Author:        Matt Palmer <matt at anchor.net.au>
AuthorDate:    Thu May 14 09:16:49 2009 -0700
Committer:     David Lutterkort <lutter at redhat.com>
CommitterDate: Thu May 28 16:44:16 2009 -0700

Interfaces: accept options containing '_'

Bug reported by Jonas Eriksson
---
 lenses/interfaces.aug |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lenses/interfaces.aug b/lenses/interfaces.aug
index 6b6b374..98389e8 100644
--- a/lenses/interfaces.aug
+++ b/lenses/interfaces.aug
@@ -40,8 +40,8 @@ let stanza_param (l:string) = [ sep_spc . label l . sto_to_spc ]
 let stanza_word = /(iface|auto|allow-[a-z-]+|mapping)/
 
 (* Define additional lines for mluti-line stanzas *)
-let stanza_option = [  del /[ \t]*/ "   " 
-                     . key  ( /[a-z-]+/ - stanza_word )
+let stanza_option = [  del /[ \t]*/ "   "
+                     . key  ( /[a-z_-]+/ - stanza_word )
                      . sep_spc
                      . sto_to_eol
                      . eol ]
@@ -102,4 +102,3 @@ let stanza_multi  = iface|mapping
               . Util.stdexcl
 
    let xfm = transform lns filter
-