[ViewVC] Diff of: cvs/deliantra/server/lib/cf/mapscript.pm

Comparing deliantra/server/lib/cf/mapscript.pm (file contents):
Revision 1.7 by root, Tue Nov 3 23:44:21 2009 UTC vs.
Revision 1.8 by root, Sun Jan 10 19:21:47 2010 UTC

 =over 4
 =cut
-package safe::mapscript;
+package cf::mapscript::eval;
 use common::sense;
 =item $self
 The object that triggered the activator, usually (but not always) the
 player who stepped on a check inv, pulled a lever etc. Can be C<undef>.
 =cut
-our ($self, $state, $activator, $originator);
+use vars qw($self $state $activator $originator);
 =item @obs = find $id_or_object
 Finds all objects with the given I<connected> C<$id>. If an object
 reference is passed, it will be returned unchanged.
    $ob->set_speed (1);
 }
 package cf::mapscript;
-use strict qw(subs vars);
+use common::sense;
+*{"main::safe::cf::mapscript::eval::"} = \%{"main::cf::mapscript::eval::"};
 our %CACHE;
 sub activate($$$) {
+   package cf::mapscript::eval;
    ($self, $state, $activator, $originator) = @_;
    (
       $CACHE{$self->msg} ||= cf::safe_eval
-         "package mapscript; sub {\n"
+         "package cf::mapscript::eval; sub {\n"
          . "#line 1 '" . ($self->debug_desc) . "'\n"
          . $self->msg
          . "\n}"
       or sub { }
    )->();

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines