entry for \0 was missing in character classes

Raku · Jan 1, 2016 · d86a422 · d86a422
1 parent 6a74da8
commit d86a422
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -492,6 +492,10 @@ class QRegex::P6Regex::Actions is HLL::Actions {
             QAST::Regex.new( $<charspec>.ast, :rxtype('literal'), :node($/) )
     }
 
+    method cclass_backslash:sym<0>($/) {
+        make QAST::Regex.new( "\0", :rxtype('literal'), :node($/) );
+    }
+
     method cclass_backslash:sym<any>($/) {
         my $qast := QAST::Regex.new( ~$/ , :rxtype('literal'), :node($/) );
         make $qast;

diff --git a/src/QRegex/P6Regex/Grammar.nqp b/src/QRegex/P6Regex/Grammar.nqp
@@ -388,6 +388,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
     token cclass_backslash:sym<o> { $<sym>=[<[oO]>] [ <octint> | '[' <octints> ']' ] }
     token cclass_backslash:sym<x> { $<sym>=[<[xX]>] [ <hexint> | '[' <hexints> ']' ] }
     token cclass_backslash:sym<c> { $<sym>=[<[cC]>] <charspec> }
+    token cclass_backslash:sym<0> { $<sym>=['0'] }
     token cclass_backslash:sym<any> { . }
 
     proto token assertion { <...> }