From 7e5f149877e73517e97bee56e6bf1a5a118837e8 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 1 Jul 2016 13:25:30 +0200
Subject: [PATCH] Scan: Do not fail if a font dictionary lacks /FontInfo

This happens with SystemFont and SystemBoldFont on Xerox WC7845.
---
 scan/scan | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/scan/scan b/scan/scan
index c74599a..d798332 100755
--- a/scan/scan
+++ b/scan/scan
@@ -310,14 +310,16 @@ sub scan_psfonts() {
 	save exch
 	findfont
 	% Parse FontInfo and find version
-	dup /FontInfo get
-		(%K% /Version) =
-		dup /Version known { dup /Version get == } {
-			dup /version known { dup /version get == } {
-				(???) ==
+	dup /FontInfo known {
+		dup /FontInfo get
+			(%K% /Version) =
+			dup /Version known { dup /Version get == } {
+				dup /version known { dup /version get == } {
+					(???) ==
+				} ifelse
 			} ifelse
-		} ifelse
-		pop
+			pop
+	} { } ifelse
 	% Print Encoding
 	(%K% /Encoding) =
 	dup /Encoding known { dup /Encoding get == } { (???) == } ifelse
-- 
GitLab