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

pbot-vm: use coderef to simplify escaping of malformed Unicode

This commit is contained in:
Pragmatic Software 2022-04-04 22:10:50 -07:00
parent 5bc47b61d9
commit 110912e85d
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
applets/pbot-vm/guest/bin/guest-gdb
View File

@ -154,14 +154,7 @@ sub gdbmi_to_hash($text, $makejson = 1) {
$text =~ s/\\+(\d{3})/$1 >= 0x20 ? chr oct $1 : "\\\\$1"/ge;
# escape malformed unicode
my $octets;
while (1) {
$octets .= decode('UTF-8', $text, Encode::FB_QUIET);
last if not length $text;
$text =~ s/(.)/sprintf '\\\\x%X', ord $1/e;
}
my $octets = decode('UTF-8', $text, sub { sprintf '\\\\x%X', shift });
$text = encode('UTF-8', $octets, Encode::FB_CROAK);
# escape invalid JSON characters

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 => 4524,
BUILD_REVISION => 4525,
BUILD_DATE => "2022-04-04",
};