| … | |
… | |
| 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 |
