| … | … | ||
|---|---|---|---|
| 3251 | =cut | 3251 | =cut |
| 3252 | 3252 | ||
| 3253 | sub register_script_function { | 3253 | sub register_script_function { |
| 3254 | my ($fun, $cb) = @_; | 3254 | my ($fun, $cb) = @_; |
| 3255 | 3255 | ||
| 3256 | no strict 'refs'; | 3256 | $fun = "safe::$fun" if $CFG{safe_eval}; |
| 3257 | *{"safe::$fun"} = $safe_hole->wrap ($cb); | 3257 | *$fun = $safe_hole->wrap ($cb); |
| 3258 | } | 3258 | } |
| 3259 | 3259 | ||
| 3260 | =back | 3260 | =back |
| 3261 | 3261 | ||
| 3262 | =cut | 3262 | =cut |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |