bug workaround re: use charnames

git-svn-id: https://svn.parrot.org/parrot/trunk@3143 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Mar 16, 2003 · b98414f · b98414f
1 parent 16f93e5
commit b98414f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/languages/perl6/P6C/Tree/String.pm b/languages/perl6/P6C/Tree/String.pm
@@ -217,7 +217,9 @@ sub string_special {
         }
         else {
             use charnames qw(:full);
-            $val = eval qq["\\N{$_}"];
+            # The charnames doesn't seem to propagate into the eval""
+            # for me -- sfink
+            $val = eval qq[use charnames qw(:full); "\\N{$_}"];
             error ("Error in interpolation of control-char: $@"),die if $@;
         }
         $val = '\\x'.sprintf("%x",ord $val) if ord($val) < 256;