Complete guess-fix for the \c[...] issue.

Raku · May 27, 2012 · 16654ba · 16654ba
1 parent 689b820
commit 16654ba
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/HLL/Actions.pm b/src/HLL/Actions.pm
@@ -166,7 +166,9 @@ class HLL::Actions {
     method charname($/) {
         my $codepoint := $<integer>
                          ?? $<integer>.ast
-                         !! pir::find_codepoint__Is( ~$/ );
+                         !! pir::find_codepoint__Is(
+                                pir::trans_encoding__Ssi(~$/,
+                                    pir::find_encoding__Is('utf8')) );
         $/.CURSOR.panic("Unrecognized character name $/") if $codepoint < 0;
         make pir::chr($codepoint);
     }