… | |
… | |
24 | use utf8; |
24 | use utf8; |
25 | |
25 | |
26 | use Carp (); |
26 | use Carp (); |
27 | use AnyEvent (); |
27 | use AnyEvent (); |
28 | use BerkeleyDB; |
28 | use BerkeleyDB; |
|
|
29 | use Pod::POM; |
29 | |
30 | |
30 | sub find_rcfile($) { |
31 | sub find_rcfile($) { |
31 | my $path; |
32 | my $path; |
32 | |
33 | |
33 | for (grep !ref, @INC) { |
34 | for (grep !ref, @INC) { |
… | |
… | |
68 | } |
69 | } |
69 | |
70 | |
70 | close CFG; |
71 | close CFG; |
71 | } |
72 | } |
72 | |
73 | |
73 | mkdir "$Crossfire::VARDIR/cfplus", 0777; |
74 | sub load_pod($) { |
|
|
75 | my $pod = do { |
|
|
76 | local $/; |
|
|
77 | open my $pod, "<:utf8", $_[0] |
|
|
78 | or die "$_[0]: $!"; |
|
|
79 | <$pod> |
|
|
80 | }; |
|
|
81 | |
|
|
82 | Pod::POM->new->parse_text ($pod); |
|
|
83 | } |
74 | |
84 | |
75 | our $DB_ENV; |
85 | our $DB_ENV; |
76 | |
86 | |
77 | { |
87 | { |
78 | use strict; |
88 | use strict; |
79 | |
89 | |
|
|
90 | mkdir "$Crossfire::VARDIR/cfplus", 0777; |
80 | my $recover = $BerkeleyDB::db_version >= 4.4 |
91 | my $recover = $BerkeleyDB::db_version >= 4.4 |
81 | ? eval "DB_REGISTER | DB_RECOVER" |
92 | ? eval "DB_REGISTER | DB_RECOVER" |
82 | : 0; |
93 | : 0; |
83 | |
94 | |
84 | $DB_ENV = new BerkeleyDB::Env |
95 | $DB_ENV = new BerkeleyDB::Env |