--- deliantra/Deliantra/Deliantra.pm	2006/02/23 01:55:54	1.22
+++ deliantra/Deliantra/Deliantra.pm	2006/02/23 02:52:51	1.23
@@ -116,7 +116,7 @@
    eval {
       defined $cache
       && -M $cache < -M $path
-      && Storable::retrieve $cache
+      && Storable::retrieve ($cache)
    } or do {
       my %pak;
 
@@ -128,7 +128,7 @@
          read $fh, $pak{$path}, $len;
       }
 
-      Storable::nstore \%pak, $cache
+      Storable::nstore (\%pak, $cache)
          if defined $cache;
 
       \%pak
@@ -141,7 +141,7 @@
    eval {
       defined $cache
       && -M $cache < -M $path
-      && Storable::retrieve $cache
+      && Storable::retrieve ($cache)
    } or do {
       my %arc;
       my ($more, $prev);
@@ -206,7 +206,7 @@
 
       undef $parse_block; # work around bug in perl not freeing $fh etc.
 
-      Storable::nstore \%arc, $cache
+      Storable::nstore (\%arc, $cache)
          if defined $cache;
 
       \%arc
@@ -272,7 +272,7 @@
 
    return if %ARCH;
 
-   mkdir 0777, $cachedir;
+   mkdir $cachedir, 0777;
    *ARCH = read_arch "$LIB/archetypes",  "$cachedir/archetypes.pst";
 }