--- deliantra/Deliantra/Deliantra.pm	2006/02/23 01:35:35	1.20
+++ deliantra/Deliantra/Deliantra.pm	2006/02/23 01:55:29	1.21
@@ -14,6 +14,7 @@
 
 use Carp ();
 use Storable;
+use File::Spec;
 use List::Util qw(min max);
 
 #XXX: The map_* procedures scream for a map-object
@@ -379,7 +380,7 @@
 #  
 }
 
-$CACHEDIR ||= "$ENV{HOME}/.crossfire";
+$CACHEDIR ||= $ENV{HOME} ? "$ENV{HOME}/.crossfire" : File::Spec->tmpdir;
 
 init $CACHEDIR;