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
1 changed files with 1 additions and 0 deletions

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;