From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 14 Sep 2013 13:36:16 +0000 (+0200)
Subject: map croascii to utf-8 in vc_casefix for ucfirst use
X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=commitdiff_plain;h=a3701079da432e7b6a1e2d9261c02b420018698e

map croascii to utf-8 in vc_casefix for ucfirst use
---

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 720b2e7..0ca18aa 100755
--- 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 );