--- deliantra/server/lib/cf.pm 2007/01/02 11:08:36 1.120 +++ deliantra/server/lib/cf.pm 2007/01/02 22:55:05 1.124 @@ -1155,7 +1155,8 @@ sub change_all_map_light { my ($change) = @_; - $_->change_map_light ($change) for values %cf::MAP; + $_->change_map_light ($change) + for grep $_->outdoor, values %cf::MAP; } sub try_load_header($) { @@ -1212,7 +1213,6 @@ # per-player maps become, after loading, normal maps $map->per_player (0) if $path->{user_rel}; } - #Coro::Timer::sleep 1;#d# $map->path ($key); $map->{path} = $path; @@ -1221,7 +1221,9 @@ if ($map->should_reset) { $map->reset; - $map = find_map $path; + undef $guard; + $map = cf::map::find_map ($path) + or return; } $cf::MAP{$key} = $map @@ -1916,14 +1918,12 @@ my $path = cf::localdir . "/database.pst"; sub db_load() { - warn "loading database $path\n";#d# remove later $DB = stat $path ? Storable::retrieve $path : { }; } my $pid; sub db_save() { - warn "saving database $path\n";#d# remove later waitpid $pid, 0 if $pid; if (0 == ($pid = fork)) { $DB->{_meta}{version} = 1;