--- deliantra/Deliantra-Client/DC.pm	2006/06/02 16:27:27	1.86
+++ deliantra/Deliantra-Client/DC.pm	2006/06/05 05:23:19	1.87
@@ -26,6 +26,7 @@
 use Carp ();
 use AnyEvent ();
 use BerkeleyDB;
+use Pod::POM;
 
 sub find_rcfile($) {
    my $path;
@@ -70,13 +71,23 @@
    close CFG;
 }
 
-mkdir "$Crossfire::VARDIR/cfplus", 0777;
+sub load_pod($) {
+   my $pod = do {
+      local $/;
+      open my $pod, "<:utf8", $_[0]
+         or die "$_[0]: $!";
+      <$pod>
+   };
+
+   Pod::POM->new->parse_text ($pod);
+}
 
 our $DB_ENV;
 
 {
    use strict;
 
+   mkdir "$Crossfire::VARDIR/cfplus", 0777;
    my $recover = $BerkeleyDB::db_version >= 4.4 
                  ? eval "DB_REGISTER | DB_RECOVER"
                  : 0;