… | |
… | |
48 | sub MOVE_ALL (){ 0xf } |
48 | sub MOVE_ALL (){ 0xf } |
49 | |
49 | |
50 | sub load_ref($) { |
50 | sub load_ref($) { |
51 | my ($path) = @_; |
51 | my ($path) = @_; |
52 | |
52 | |
53 | open my $fh, ">:raw", "$path~" |
53 | open my $fh, "<:raw", "$path~" |
54 | or die "$path~: $!"; |
54 | or die "$path~: $!"; |
55 | local $/; |
55 | local $/; |
56 | Storable::thaw <$fh> |
56 | Storable::thaw <$fh> |
57 | } |
57 | } |
58 | |
58 | |
… | |
… | |
399 | |
399 | |
400 | mkdir $cachedir, 0777; |
400 | mkdir $cachedir, 0777; |
401 | *ARCH = read_arch "$LIB/archetypes", "$cachedir/archetypes.pst"; |
401 | *ARCH = read_arch "$LIB/archetypes", "$cachedir/archetypes.pst"; |
402 | } |
402 | } |
403 | |
403 | |
404 | $VARDIR ||= $ENV{HOME} ? "$ENV{HOME}/crossfire" : File::Spec->tmpdir; |
404 | $VARDIR ||= $ENV{HOME} ? "$ENV{HOME}/.crossfire" : File::Spec->tmpdir . "/crossfire"; |
405 | |
405 | |
406 | init $VARDIR; |
406 | init $VARDIR; |
407 | |
407 | |
408 | =head1 AUTHOR |
408 | =head1 AUTHOR |
409 | |
409 | |