3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-23 12:29:27 +01:00

Replace control chars with escaped ordinals

This commit is contained in:
Pragmatic Software 2017-09-02 00:40:46 -07:00
parent 1b70de807b
commit 12a92ea7d3

View File

@ -621,6 +621,7 @@ sub execute_code_factoid {
}
$action = substr $action, 0, 400;
$action =~ s/([\01-\010]|[\016-\037])/'\\' . ord $1/ge;
%SIG = %signals;
alarm 1;