1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 05:50:41 -04:00
perlbuut/bin/testeval.sh
2017-04-01 15:15:50 -04:00

15 lines
411 B
Bash
Executable file

#!/bin/bash
read -r -d '' CODE <<'EOC'
perl5.24 print "Hello World";
EOC
echo --------
echo $CODE
echo --------
rm -f ./jail/noseccomp
echo $CODE | sudo strace -ojail/killed.log /home/ryan/perl5/perlbrew/perls/perlbot-inuse/bin/perl5* ./lib/eval.pl
touch ./jail/noseccomp
echo $CODE | sudo strace -ojail/alive.log /home/ryan/perl5/perlbrew/perls/perlbot-inuse/bin/perl5* ./lib/eval.pl
rm -f ./jail/noseccomp