From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 21 Feb 2015 03:54:06 +0000 (+0100)
Subject: digraphs: fix string alternative in character include
X-Git-Tag: v1.7~119
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/cedae5e24d6b2e849262c4a921570fdc7cb8a44a

digraphs: fix string alternative in character include
---

diff --git a/tools/mkcharinfo b/tools/mkcharinfo
index b58f0c3..1cac30a 100755
--- a/tools/mkcharinfo
+++ b/tools/mkcharinfo
@@ -90,15 +90,15 @@ for my $chr (keys %info) {
 	$info->{class}->{Xa}++ if $info->{block} eq 'Basic Latin';
 	$info->{class}->{Xl}++ if $info->{block} eq 'Latin-1 Supplement';
 
-	given ($cp) {
-		when ($info->{string}) {
+	{
+		if ($info->{string}) {
 			# keep predefined presentational string
 		}
-		when ($info->{combining}) {
+		elsif ($info->{combining}) {
 			# overlay combining accents
 			$info->{string} = chr(9676) . $chr;
 		}
-		when (($cp & ~0b1001_1111) == 0 or $cp == 127) {
+		elsif (($cp & ~0b1001_1111) == 0 or $cp == 127) {
 			# control characters (first 32 chars from 0 and 128)
 			# rename to something more descriptive
 			$info->{name} = $info->{unicode10}