From 67a8eaf07469e5b2dbddaf432542891f9ff9f37a Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Fri, 2 Apr 2010 20:53:41 +0200
Subject: [PATCH] Correct action methods for \e and \f sequences in regexes.

---
 src/Regex/P6Regex/Actions.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
index 04bf409..647ca35 100644
--- 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;
 }