[Cursor] Re-special-case \r in \h; Perl/Blank doesn't cover it after all

git-svn-id: http://svn.pugscode.org/pugs@31432 c213334d-75ef-0310-aa23-eaa082d1ae64
perl6 · Jun 24, 2010 · 130f81a · 130f81a
1 parent e856b6d
commit 130f81a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/RE_ast.pmc b/RE_ast.pmc
@@ -379,7 +379,7 @@ my $NULL = $nfa::NULL;
         '\D' =>   nfa::cclass(['ALL', 'Gc/N']),
         '\d' =>   nfa::cclass(['Gc/N']),
         '\H' =>   nfa::cclass(['ALL', 'Perl/Blank']),
-        '\h' =>   nfa::cclass(['Perl/Blank']),
+        '\h' =>   nfa::cclass(['Perl/Blank'], ["\015"]),
         '\N' =>   nfa::cclass(['ALL', "\n"]),
         '\n' =>   nfa::cclass(["\n"]),
         '\S' =>   nfa::cclass(['ALL', 'Space/Y']),