… | |
… | |
3141 | our $safe_hole = new Safe::Hole; |
3141 | our $safe_hole = new Safe::Hole; |
3142 | |
3142 | |
3143 | $SIG{FPE} = 'IGNORE'; |
3143 | $SIG{FPE} = 'IGNORE'; |
3144 | |
3144 | |
3145 | $safe->permit_only (Opcode::opset qw( |
3145 | $safe->permit_only (Opcode::opset qw( |
3146 | :base_core :base_mem :base_orig :base_math |
3146 | :base_core :base_mem :base_orig :base_math :base_loop |
3147 | grepstart grepwhile mapstart mapwhile |
3147 | grepstart grepwhile mapstart mapwhile |
3148 | sort time |
3148 | sort time |
3149 | )); |
3149 | )); |
3150 | |
3150 | |
3151 | # here we export the classes and methods available to script code |
3151 | # here we export the classes and methods available to script code |