Use a rule instead of a regex in PL/Perl6 grammar example, bacek++

leto · Aug 19, 2010 · 39e900f · 39e900f
1 parent a1bc962
commit 39e900f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/sql/plperl6.sql b/t/sql/plperl6.sql
@@ -103,10 +103,10 @@ CREATE OR REPLACE FUNCTION test_grammar(text) RETURNS integer LANGUAGE plperl6 A
         regex quantity { \d+ }
         regex color { \S+ }
         regex description { \N* }
-        regex TOP { ^^ <product> \s+ <quantity>  \s+
+        rule TOP { ^^ <product> <quantity>
                     [
-                    | <description> \s+ '(' \s* <color> \s*  ')'
+                    | <description> '(' \s* <color> \s*  ')'
-                    | <color> \s+ <description>
+                    | <color> <description>
                     ]
                     $$
         }