[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra.pm

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.18 by root, Wed Feb 22 22:41:22 2006 UTC vs.
Revision 1.22 by root, Thu Feb 23 01:55:54 2006 UTC

 use base 'Exporter';
 use Carp ();
 use Storable;
+use File::Spec;
 use List::Util qw(min max);
 #XXX: The map_* procedures scream for a map-object
 our @EXPORT =
 sub init($) {
    my ($cachedir) = @_;
    return if %ARCH;
+   mkdir 0777, $cachedir;
    *ARCH = read_arch "$LIB/archetypes",  "$cachedir/archetypes.pst";
 }
-=item $data = arch_attr $arch
+=item $type = arch_attr $arch
 Returns a hashref describing the object and its attributes. It can contain
 the following keys:
    name   the name, suitable for display purposes
    ignore
    attr
    desc
    use
    section => [name => \%attr, name => \%attr]
+   import
 =cut
 sub arch_attr($) {
    my ($arch) = @_;
          $attr = $_;
       }
    }
-   use PApp::Util;
+   $attr || \%Crossfire::Data::DEFAULT_ATTR;
-   warn PApp::Util::dumpval $attr;
 }
 sub arch_edit_sections {
 #      if (edit_type == IGUIConstants.TILE_EDIT_NONE)
 #           edit_type = 0;
 #       return(edit_type);
 #
 #
 }
-$CACHEDIR ||= "$ENV{HOME}/.crossfire";
+$CACHEDIR ||= $ENV{HOME} ? "$ENV{HOME}/.crossfire" : File::Spec->tmpdir;
 init $CACHEDIR;
 =head1 AUTHOR

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines