[GGE::Perl6Regex] now parses \N

masak · Nov 13, 2009 · c07bb4b · c07bb4b
1 parent 9bd4ca3
commit c07bb4b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/lib/GGE/Exp.pm b/lib/GGE/Exp.pm
@@ -80,7 +80,8 @@ class GGE::Exp::CCShortcut is GGE::Exp does ShowContents {
         if self.Str eq '.'
            || self.Str eq '\\s' && $string.substr($pos, 1) eq ' '
            || self.Str eq '\\S' && $string.substr($pos, 1) ne ' '
-           || self.Str eq '\\n' && $string.substr($pos, 1) eq "\n"|"\r" {
+           || self.Str eq '\\n' && $string.substr($pos, 1) eq "\n"|"\r"
+           || self.Str eq '\\N' && !($string.substr($pos, 1) eq "\n"|"\r") {
             ++$pos;
             return True;
         }

diff --git a/lib/GGE/Perl6Regex.pm b/lib/GGE/Perl6Regex.pm
@@ -25,6 +25,8 @@ class GGE::Perl6Regex {
                         :match(GGE::Exp::CCShortcut));
         $optable.newtok('term:\\n',  :equiv<term:>,
                         :match(GGE::Exp::CCShortcut));
+        $optable.newtok('term:\\N',  :equiv<term:>,
+                        :match(GGE::Exp::CCShortcut));
         $optable.newtok('term:\\s',  :equiv<term:>,
                         :match(GGE::Exp::CCShortcut));
         $optable.newtok('term:\\S',  :equiv<term:>,