Permalink
Browse files

[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
  • Loading branch information...
sorear
sorear committed Jun 24, 2010
1 parent e856b6d commit 130f81a88d4b497d57193ea4b3325eac4d907fbc
Showing with 1 addition and 1 deletion.
  1. +1 −1 RE_ast.pmc
View
@@ -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']),

0 comments on commit 130f81a

Please sign in to comment.