| … | |
… | |
| 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 | |
