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.79 by root, Tue Nov 7 14:58:35 2006 UTC vs.
Revision 1.82 by root, Sun Dec 3 20:59:52 2006 UTC

523 unlink $filename; 523 unlink $filename;
524 unlink "$filename.pst"; 524 unlink "$filename.pst";
525 } 525 }
526} 526}
527 527
528sub object_freezer_as_string {
529 my ($rdata, $objs) = @_;
530
531 use Data::Dumper;
532
533 $$rdata . Dumper $objs
534}
535
528sub object_thawer_load { 536sub object_thawer_load {
529 my ($filename) = @_; 537 my ($filename) = @_;
530 538
531 local $/; 539 local $/;
532 540
634 . "#line 1 \"$path\"\n{\n" 642 . "#line 1 \"$path\"\n{\n"
635 . (do { local $/; <$fh> }) 643 . (do { local $/; <$fh> })
636 . "\n};\n1"; 644 . "\n};\n1";
637 645
638 eval $source 646 eval $source
639 or die "$path: $@"; 647 or die $@ ? "$path: $@\n"
648 : "extension disabled.\n";
640 649
641 push @exts, $pkg; 650 push @exts, $pkg;
642 $ext_pkg{$base} = $pkg; 651 $ext_pkg{$base} = $pkg;
643 652
644# no strict 'refs'; 653# no strict 'refs';
1177 $TICK_WATCHER->at ($NEXT_TICK); 1186 $TICK_WATCHER->at ($NEXT_TICK);
1178 $TICK_WATCHER->start; 1187 $TICK_WATCHER->start;
1179 }, 1188 },
1180); 1189);
1181 1190
1182eval { IO::AIO::max_poll_time $TICK * 0.2 }; #d# remove eval after restart 1191IO::AIO::max_poll_time $TICK * 0.2;
1183 1192
1184Event->io (fd => IO::AIO::poll_fileno, 1193Event->io (fd => IO::AIO::poll_fileno,
1185 poll => 'r', 1194 poll => 'r',
1186 prio => 5, 1195 prio => 5,
1187 cb => \&IO::AIO::poll_cb); 1196 cb => \&IO::AIO::poll_cb);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines