… | … | ||
---|---|---|---|
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 |