Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

bug workaround re: use charnames

git-svn-id: https://svn.parrot.org/parrot/trunk@3143 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
commit b98414f4b916a80697f926e5374e625cbe848d2d 1 parent 16f93e5
@hotsphink hotsphink authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 languages/perl6/P6C/Tree/String.pm
View
4 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;
Please sign in to comment.
Something went wrong with that request. Please try again.