--- deliantra/Deliantra-Client/DC.pm	2006/06/05 05:23:19	1.87
+++ deliantra/Deliantra-Client/DC.pm	2006/06/05 05:31:13	1.88
@@ -71,15 +71,19 @@
    close CFG;
 }
 
+my %POD_CACHE;
+
 sub load_pod($) {
-   my $pod = do {
-      local $/;
-      open my $pod, "<:utf8", $_[0]
-         or die "$_[0]: $!";
-      <$pod>
-   };
+   $POD_CACHE{$_[0]} ||= do {
+      my $pod = do {
+         local $/;
+         open my $pod, "<:utf8", $_[0]
+            or die "$_[0]: $!";
+         <$pod>
+      };
 
-   Pod::POM->new->parse_text ($pod);
+      Pod::POM->new->parse_text ($pod)
+   }
 }
 
 our $DB_ENV;