[MBT] new entry in pkg type1inst "type1inst fails on some font files with few spaces in formatting"

[bugs at pld.org.pl]

Date: 2002-12-02 12:55:17+01	Author: Göran Uddeborg (Göran) <goeran at uddeborg.pp.se> 
Title:         type1inst fails on some font files with few spaces in formatting
Ticket ID:     #482
Ticket URL:    http://bugs.pld.org.pl/?bug=482
Package:       type1inst-0.6.1-4
Distribution:  PLD-Ra.main PLD-1.0.devel.main PLD-1.0.devel.test PLD-1.0.devel.supported
Category:      doesn't work as it should
Current state: opened
Text:

--- type1inst~  2002-12-01 18:15:13.000000000 +0100
+++ type1inst   2002-12-01 18:25:39.000000000 +0100
@@ -337,7 +337,7 @@
       # I think that we should accept the manufacturers classification.
       # Try to extract this from FontName only if it's missing.
       # (It shouldn't. There are other reasons why this won't work, though.)
-      if (/\/FamilyName\s*\((.+)\)\s+readonly\s+def\s*/) {
+      if (/\/FamilyName\s*\((.+)\)\s*readonly\s+def\s*/) {
          $familyname = ;
 
          # Convert to lower case (because case is insignificant).
@@ -348,7 +348,7 @@
       # a little cluttered, though. Perhaps it would be better to map it
       # to standard strings like you do. It's named $weight_add because
       # you already used $weight...
-      if (/\/Weight\s*\((.+)\)\s+readonly\s+def\s*/) {
+      if (/\/Weight\s*\((.+)\)\s*readonly\s+def\s*/) {
          $weight_add = ;
 
          # Convert to lower case. Spaces are acceptable according to XLFD?
@@ -374,7 +374,7 @@
       }
       # FullName might contain useful information in determining
       # the properties of a font.
-      if (/\/FullName\s*\((.+)\)\s+readonly\s+def\s*/) {
+      if (/\/FullName\s*\((.+)\)\s*readonly\s+def\s*/) {
          $fullname = ;
 
          # Convert to lower case
@@ -385,7 +385,7 @@
       }
       # Note : some fonts have a suspect /FontName declaration where there
       # is no space between /FontName and the name of the font itself....
-      if (/\/FontName\s*[\/\(]([^\)]+)\)?\s+def\s*/) {
+      if (/\/FontName\s*[\/\(]([^\)]+)\)?\s*def\s*/) {
          $fontname = ;
 
          # Remove any embedded spaces