From 945403904e12419ab1f5d87ea3246c63460d70d4 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 11 Dec 2020 23:57:59 +0100
Subject: [PATCH] Scan: Avoid Perl warning on fonts with missing /Version

---
 scan/scan | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scan/scan b/scan/scan
index 286c677..c5e9db8 100755
--- a/scan/scan
+++ b/scan/scan
@@ -356,7 +356,7 @@ AMEN
 		$fname =~ s/[()]//g;
 		my $ename = $standard_encodings{$ehash} // "Special";
 		print "# encoding hash: $ehash\n" if $verbose;
-		print "*Font $fname: ", $ename, " \"", $g->{'/Version'}, "\" ", $ename, " ROM\n";
+		print "*Font $fname: ", $ename, " \"", ($g->{'/Version'} // '<unknown version>'), "\" ", $ename, " ROM\n";
 	}
 }
 
-- 
GitLab