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