| … | |
… | |
| 314 | } |
314 | } |
| 315 | |
315 | |
| 316 | { |
316 | { |
| 317 | open my $fh, ">:utf8", "$DATADIR/archetypes~" |
317 | open my $fh, ">:utf8", "$DATADIR/archetypes~" |
| 318 | or die "$DATADIR/archetypes~: $!"; |
318 | or die "$DATADIR/archetypes~: $!"; |
| 319 | substr $_->{editor_folder}, 0, length $path, "" for @ARC; |
319 | substr $_->{editor_folder}, 0, 1 + length $path, "" for @ARC; |
| 320 | print $fh Crossfire::archlist_to_string \@ARC; |
320 | print $fh Crossfire::archlist_to_string \@ARC; |
| 321 | } |
321 | } |
| 322 | |
322 | |
| 323 | { |
323 | { |
| 324 | while (my ($k, $v) = each %FACEINFO) { |
324 | while (my ($k, $v) = each %FACEINFO) { |
