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