Correct action methods for \e and \f sequences in regexes.

perl6 · Apr 2, 2010 · 67a8eaf · 67a8eaf
1 parent 31b97cc
commit 67a8eaf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -275,13 +275,13 @@ method backslash:sym<b>($/) {
 }
 
 method backslash:sym<e>($/) {
-    my $past := PAST::Regex.new( "\e", :pasttype('enumcharlist'),
+    my $past := PAST::Regex.new( "\c[27]", :pasttype('enumcharlist'),
                     :negate($<sym> eq 'E'), :node($/) );
     make $past;
 }
 
 method backslash:sym<f>($/) {
-    my $past := PAST::Regex.new( "\f", :pasttype('enumcharlist'),
+    my $past := PAST::Regex.new( "\c[12]", :pasttype('enumcharlist'),
                     :negate($<sym> eq 'F'), :node($/) );
     make $past;
 }