map croascii to utf-8 in vc_casefix for ucfirst use

[crolist2marc] / crolist2marc.pl

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 720b2e7..0ca18aa 100755 (executable)
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -14,6 +14,8 @@ sub vc_casefix { # partial reverse-engeenered implementation of case mapping
 
        $vc .= " " x (4 - length($vc));
 
+       $k =~ tr/^~]}\\|[{@`/ČčĆćĐ𩹮ž/; # CROASCII (YUS|HRN) B1.002:1982
+
        my @m = map { ord($_) } split(//, $vc);
 
        my $mask = ( $m[3] & 0b00001111 ) << 4 | ( $m[2] & 0b00001111 );