GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Refactor UTF-8 fix

This commit is contained in:
Pragmatic Software 2023-03-12 18:28:50 -07:00
parent b9a89e10d6
commit 3ada433527
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
applets/pbot-vm/host/lib/Languages/_default.pm
View File

@ -309,18 +309,14 @@ sub execute {
my $result = "";
my $got_result = 0;
while (my $line = decode('UTF-8', <$output>)) {
while (my $line = decode('UTF-8', <$output>, sub { sprintf '\\\\x%02X', shift })) {
$line =~ s/[\r\n]+$//;
last if $line =~ /^result:end$/;
if ($line =~ /^result:/) {
$line =~ s/^result://;
$line = encode('UTF-8', $line);
my $octets = decode('UTF-8', $line, sub { sprintf '\\\\x%02X', shift });
$line = encode('UTF-8', $octets, Encode::FB_CROAK);
my $compile_out = decode_json($line);
# use JSON::XS->new->decode() for non-utf8 decoding
my $compile_out = JSON::XS->new->decode($line);
$result .= "$compile_out->{result}\n";
$got_result = 1;
next;

2
lib/PBot/VERSION.pm
View File

@ -25,7 +25,7 @@ use PBot::Imports;
# These are set by the /misc/update_version script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4628,
BUILD_REVISION => 4629,
BUILD_DATE => "2023-03-12",
};