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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.12 by root, Tue Mar 28 16:48:11 2006 UTC vs.
Revision 1.13 by root, Fri Mar 31 22:09:36 2006 UTC

 #############################################################################
 # load/save/clean perl data associated with a map
 *on_mapclean = sub {
-   my $map = shift->{map};
+   my ($map) = @_;
    my $path = $map->tmpname;
    defined $path or return;
    unlink "$path.cfperl";
 };
 *on_mapin =
 *on_mapload = sub {
-   my $map = shift->{map};
+   my ($map) = @_;
    my $path = $map->tmpname;
    $path = $map->path unless defined $path;
    open my $fh, "<:raw", "$path.cfperl"
    $map->_set_obs ($data->{obs});
 };
 *on_mapout = sub {
-   my $map = shift->{map};
+   my ($map) = @_;
    my $path = $map->tmpname;
    $path = $map->path unless defined $path;
    my $obs = $map->_get_obs;
 #############################################################################
 # load/save perl data associated with player->ob objects
 *on_player_load = sub {
-   my ($event) = @_;
+   my ($ob, $path) = @_;
-   my $path = $event->{message};
-   my $ob = $event->{who};
    if (open my $fh, "<:raw", "$path.cfperl") {
       #d##TODO#remove
       }
    }
 };
 *on_player_save = sub {
-   my ($event) = @_;
+   my ($ob, $path) = @_;
-   my $path = $event->{message};
-   my $ob = $event->{who};
    $_->set_ob_key_value (_perl_data => unpack "H*", Storable::nfreeze $_)
       for grep %$_, $ob, $ob->inv;
    unlink "$path.cfperl";#d##TODO#remove

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