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.146 by root, Sun Jan 7 23:10:43 2007 UTC vs.
Revision 1.149 by root, Mon Jan 8 14:11:05 2007 UTC

1133 my $path = path $pl; 1133 my $path = path $pl;
1134 my $guard = cf::lock_acquire "user_save:$path"; 1134 my $guard = cf::lock_acquire "user_save:$path";
1135 1135
1136 return if $pl->{deny_save}; 1136 return if $pl->{deny_save};
1137 1137
1138 IO::AIO::aio_mkdir playerdir $pl, 0770; 1138 Coro::AIO::aio_mkdir playerdir $pl, 0770;
1139 $pl->{last_save} = $cf::RUNTIME; 1139 $pl->{last_save} = $cf::RUNTIME;
1140 1140
1141 Coro::cede;
1142 $pl->save_pl ($path); 1141 $pl->save_pl ($path);
1143 Coro::cede; 1142 Coro::cede;
1144} 1143}
1145 1144
1146sub new($) { 1145sub new($) {
1681 $map = $map->customise_for ($self) if $map; 1680 $map = $map->customise_for ($self) if $map;
1682 1681
1683# warn "entering ", $map->path, " at ($x, $y)\n" 1682# warn "entering ", $map->path, " at ($x, $y)\n"
1684# if $map; 1683# if $map;
1685 1684
1685 $map or $map->cluck ("oy");#d#
1686 $map or $self->message ("The exit is closed", cf::NDI_UNIQUE | cf::NDI_RED); 1686 $map or $self->message ("The exit to '" . ($path->visible_name) . "' is closed", cf::NDI_UNIQUE | cf::NDI_RED);
1687 1687
1688 $self->leave_link ($map, $x, $y); 1688 $self->leave_link ($map, $x, $y);
1689 })->prio (1); 1689 })->prio (1);
1690} 1690}
1691 1691
2099 $cf::map::MAX_RESET = $CFG{map_max_reset} if exists $CFG{map_max_reset}; 2099 $cf::map::MAX_RESET = $CFG{map_max_reset} if exists $CFG{map_max_reset};
2100 $cf::map::DEFAULT_RESET = $CFG{map_default_reset} if exists $CFG{map_default_reset}; 2100 $cf::map::DEFAULT_RESET = $CFG{map_default_reset} if exists $CFG{map_default_reset};
2101 2101
2102 if (exists $CFG{mlockall}) { 2102 if (exists $CFG{mlockall}) {
2103 eval { 2103 eval {
2104 $CFG{mlockall} ? &mlockall : &munlockall 2104 $CFG{mlockall} ? eval "mlockall()" : eval "munlockall()"
2105 and die "WARNING: m(un)lockall failed: $!\n"; 2105 and die "WARNING: m(un)lockall failed: $!\n";
2106 }; 2106 };
2107 warn $@ if $@; 2107 warn $@ if $@;
2108 } 2108 }
2109} 2109}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines