fixed the regex again...

agentzh · Mar 10, 2011 · 631d599 · 631d599
1 parent e53feb9
commit 631d599
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/grammar/cheater.grammar b/grammar/cheater.grammar
@@ -80,7 +80,7 @@ type_definition: 'type' <commit> type '=' type domain(?) attribute(s?)
                         ['type', $item[3], $item[4], $item[5], $item[6]] }
                | <error?> <reject>
 
-regex: /\/(?:[^\\]|\\.)*\//
+regex: /\/(?:[^\\\/]|\\.)*\//
         { my $regex = 'qr' . $item[1];
           my $re = eval $regex;
           if ($@) {

diff --git a/t/text.t b/t/text.t
@@ -282,14 +282,15 @@ users
 --- src
 table users (
     name text /http:\/\/[a-z]{3}\d{2}/ not null unique;
+    age integer /\d{4}/ not null;
 )
 
 4 users;
 --- out
 users
-      name
-      http://wpu38
-      http://tgk85
-      http://cok98
-      http://ylu09
+      name    age
+      http://wpu38    1584
+      http://tgk85    1772
+      http://cok98    9564
+      http://ylu09    4619