[augeas-devel] augeas: master - * src/lexer.l: allow empty regexps

[David Lutterkort]

Gitweb:        http://git.fedorahosted.org/git/augeas.git?p=augeas.git;a=commitdiff;h=241dc47cc4f1de1ae7dfced9707164da142c7e00
Commit:        241dc47cc4f1de1ae7dfced9707164da142c7e00
Parent:        a22912ffdbefb7ca3b03b3530d445777804d3b02
Author:        David Lutterkort <lutter at redhat.com>
AuthorDate:    Fri Jun 5 11:22:03 2009 -0700
Committer:     David Lutterkort <lutter at redhat.com>
CommitterDate: Fri Jun 5 11:22:03 2009 -0700

* src/lexer.l: allow empty regexps

Fixes bug #34
---
 src/lexer.l                         |    2 +-
 tests/modules/pass_empty_regexp.aug |    5 +++++
 2 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/src/lexer.l b/src/lexer.l
index 1fbe62a..e0401a0 100644
--- a/src/lexer.l
+++ b/src/lexer.l
@@ -89,7 +89,7 @@ ARROW  ->
                return DQUOTED;
   }
 
-  \/([^/]|\\\/)+\/ {
+  \/([^/]|\\\/)*\/ {
                loc_update(yylloc, yytext, yyleng);
                yylval->string = unescape(yytext+1, yyleng-2);
                return REGEXP;
diff --git a/tests/modules/pass_empty_regexp.aug b/tests/modules/pass_empty_regexp.aug
new file mode 100644
index 0000000..45dce0b
--- /dev/null
+++ b/tests/modules/pass_empty_regexp.aug
@@ -0,0 +1,5 @@
+module Pass_empty_regexp =
+
+let l = [ del // "" . key /[a-z]+/ ]
+
+test l get "abc" = { "abc" }