From fcf5d9791d21fe87a9dca20f84dccd226e65fdbf Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 12 May 2009 15:44:16 -0500
Subject: [PATCH] Clean up some places where latin1->utf8 conversion did the
 wrong thing.

---
 src/parser/grammar.pg | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
index a78e7b57847..4c1d9ef4cf2 100644
--- a/src/parser/grammar.pg
+++ b/src/parser/grammar.pg
@@ -105,7 +105,7 @@ token unv {
 ##  a set of whitespace.
 
 token afterws {
-    ##  <?{ $¢ == $!ws_to != $!ws_from }>
+    ##  <?{ $¢ == $!ws_to != $!ws_from }>
     {{  $P0 = match.'to'()
         $P1 = get_global '$!ws'
         $P2 = $P1.'to'()
@@ -727,7 +727,7 @@ rule enum_declarator {
 
     [
     | <?before '(' > <circumfix> {*}             #= circumfix
-    | <?before '<' | '«' > <quote> {*}          #= quote
+    | <?before '<' | '«' > <quote> {*}          #= quote
     ]
 }
 
@@ -822,7 +822,7 @@ token desigilname {
 }
 
 token special_variable {
-    $<sym>=[ '$/' | '$!' | '$¢' ] <!before \w> {*}
+    $<sym>=[ '$/' | '$!' | '$¢' ] <!before \w> {*}
 }
 
 token circumfix {
@@ -897,7 +897,7 @@ token quote {
     | <.before '"' >   <quote_expression: :qq>
     | <.before '<<' >  <quote_expression: :ww :qq>
     | <.before '<' >   <quote_expression: :w :q>
-    # | <.before '«' > <quote_expression: :ww :qq>  FIXME: unicode
+    # | <.before '«' > <quote_expression: :ww :qq>  FIXME: unicode
     | <.before '/'>    <quote_expression: :regex>
     | [m|rx] <.ws> 
         [ [':P5'|':Perl5'] <.ws> <quote_expression: :regex :P5>