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.499 by root, Sun Jan 10 17:43:46 2010 UTC vs.
Revision 1.501 by root, Sat Jan 16 23:27:21 2010 UTC

2009 2009
2010 $cf::MAP{$path} = $map 2010 $cf::MAP{$path} = $map
2011 } 2011 }
2012} 2012}
2013 2013
2014sub pre_load { } 2014sub pre_load { }
2015sub post_load { } 2015#sub post_load { } # XS
2016 2016
2017sub load { 2017sub load {
2018 my ($self) = @_; 2018 my ($self) = @_;
2019 2019
2020 local $self->{deny_reset} = 1; # loading can take a long time 2020 local $self->{deny_reset} = 1; # loading can take a long time
3251=cut 3251=cut
3252 3252
3253sub register_script_function { 3253sub register_script_function {
3254 my ($fun, $cb) = @_; 3254 my ($fun, $cb) = @_;
3255 3255
3256 no strict 'refs'; 3256 $fun = "safe::$fun" if $CFG{safe_eval};
3257 *{"safe::$fun"} = $safe_hole->wrap ($cb); 3257 *$fun = $safe_hole->wrap ($cb);
3258} 3258}
3259 3259
3260=back 3260=back
3261 3261
3262=cut 3262=cut
3283 3283
3284 $facedata->{version} == 2 3284 $facedata->{version} == 2
3285 or cf::cleanup "$path: version mismatch, cannot proceed."; 3285 or cf::cleanup "$path: version mismatch, cannot proceed.";
3286 3286
3287 # patch in the exptable 3287 # patch in the exptable
3288 my $exp_table = $enc->encode ([map cf::level_to_min_exp $_, 1 .. cf::settings->max_level]);
3288 $facedata->{resource}{"res/exp_table"} = { 3289 $facedata->{resource}{"res/exp_table"} = {
3289 type => FT_RSRC, 3290 type => FT_RSRC,
3290 data => $enc->encode ([map cf::level_to_min_exp $_, 1 .. cf::settings->max_level]), 3291 data => $exp_table,
3292 hash => (Digest::MD5::md5 $exp_table),
3291 }; 3293 };
3292 cf::cede_to_tick; 3294 cf::cede_to_tick;
3293 3295
3294 { 3296 {
3295 my $faces = $facedata->{faceinfo}; 3297 my $faces = $facedata->{faceinfo};

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines