… | |
… | |
80 | |
80 | |
81 | # we bless all objects into (empty) derived classes to force a method lookup |
81 | # we bless all objects into (empty) derived classes to force a method lookup |
82 | # within the Safe compartment. |
82 | # within the Safe compartment. |
83 | for my $pkg (qw( |
83 | for my $pkg (qw( |
84 | cf::object cf::object::player |
84 | cf::object cf::object::player |
85 | cf::client_socket cf::player |
85 | cf::client cf::player |
86 | cf::arch cf::living |
86 | cf::arch cf::living |
87 | cf::map cf::party cf::region |
87 | cf::map cf::party cf::region |
88 | )) { |
88 | )) { |
89 | no strict 'refs'; |
89 | no strict 'refs'; |
90 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
90 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |