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.80 by root, Tue Nov 7 16:30:55 2006 UTC vs.
Revision 1.84 by root, Mon Dec 11 02:54:57 2006 UTC

… …
28our $TICK_WATCHER; 28our $TICK_WATCHER;
29our $NEXT_TICK; 29our $NEXT_TICK;
30 30
31our %CFG; 31our %CFG;
32 32
33our $uptime; 33our $UPTIME; $UPTIME ||= time;
34
35$uptime ||= time;
36 34
37############################################################################# 35#############################################################################
38 36
39=head2 GLOBAL VARIABLES 37=head2 GLOBAL VARIABLES
40 38
41=over 4 39=over 4
40
41=item $cf::UPTIME
42
43The timestamp of the server start (so not actually an uptime).
42 44
43=item $cf::LIBDIR 45=item $cf::LIBDIR
44 46
45The perl library directory, where extensions and cf-specific modules can 47The perl library directory, where extensions and cf-specific modules can
46be found. It will be added to C<@INC> automatically. 48be found. It will be added to C<@INC> automatically.
… …
528sub object_freezer_as_string { 530sub object_freezer_as_string {
529 my ($rdata, $objs) = @_; 531 my ($rdata, $objs) = @_;
530 532
531 use Data::Dumper; 533 use Data::Dumper;
532 534
533 "$$rdata\n" . Dumper $objs 535 $$rdata . Dumper $objs
534} 536}
535 537
536sub object_thawer_load { 538sub object_thawer_load {
537 my ($filename) = @_; 539 my ($filename) = @_;
538 540
… …
642 . "#line 1 \"$path\"\n{\n" 644 . "#line 1 \"$path\"\n{\n"
643 . (do { local $/; <$fh> }) 645 . (do { local $/; <$fh> })
644 . "\n};\n1"; 646 . "\n};\n1";
645 647
646 eval $source 648 eval $source
647 or die "$path: $@"; 649 or die $@ ? "$path: $@\n"
650 : "extension disabled.\n";
648 651
649 push @exts, $pkg; 652 push @exts, $pkg;
650 $ext_pkg{$base} = $pkg; 653 $ext_pkg{$base} = $pkg;
651 654
652# no strict 'refs'; 655# no strict 'refs';

Diff Legend

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