ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf.pm
(Generate patch)

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.327 by root, Wed Aug 1 17:22:51 2007 UTC vs.
Revision 1.328 by root, Wed Aug 8 06:24:30 2007 UTC

2710our $safe = new Safe "safe"; 2710our $safe = new Safe "safe";
2711our $safe_hole = new Safe::Hole; 2711our $safe_hole = new Safe::Hole;
2712 2712
2713$SIG{FPE} = 'IGNORE'; 2713$SIG{FPE} = 'IGNORE';
2714 2714
2715$safe->permit_only (Opcode::opset qw(:base_core :base_mem :base_orig :base_math sort time)); 2715$safe->permit_only (Opcode::opset qw(
2716 :base_core :base_mem :base_orig :base_math
2717 grepstart grepwhile mapstart mapwhile
2718 sort time
2719));
2716 2720
2717# here we export the classes and methods available to script code 2721# here we export the classes and methods available to script code
2718 2722
2719=pod 2723=pod
2720 2724
2735 2739
2736=cut 2740=cut
2737 2741
2738for ( 2742for (
2739 ["cf::object" => qw(contr pay_amount pay_player map force_find force_add x y 2743 ["cf::object" => qw(contr pay_amount pay_player map force_find force_add x y
2740 insert remove)], 2744 insert remove inv)],
2741 ["cf::object::player" => qw(player)], 2745 ["cf::object::player" => qw(player)],
2742 ["cf::player" => qw(peaceful)], 2746 ["cf::player" => qw(peaceful)],
2743 ["cf::map" => qw(trigger)], 2747 ["cf::map" => qw(trigger)],
2744) { 2748) {
2745 no strict 'refs'; 2749 no strict 'refs';

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines