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 = substr $action, 0, 400;
$action =~ s/([\01-\010]|[\016-\037])/'\\' . ord $1/ge;
%SIG = %signals; %SIG = %signals;
alarm 1; alarm 1;