From: Werner Lemberg <wl@gnu.org>
Date: Sun, 31 Jul 2011 22:11:41 +0000 (+0200)
Subject: mf2pt1: Fix buglet in creation of `.notdef'.
X-Git-Tag: release/2.15.8-1~7
X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=commitdiff_plain;h=58c9479cfbc546c0d758dfd8c8ce03998315a220

mf2pt1: Fix buglet in creation of `.notdef'.

This avoids the following two harmless warning messages:

  t1asm: unknown charstring command `91.60803'
  fontforge: Stack underflow on hsbw in .notdef
---

diff --git a/scripts/build/mf2pt1.pl b/scripts/build/mf2pt1.pl
index 95df0f8206..62463d3a3b 100644
--- a/scripts/build/mf2pt1.pl
+++ b/scripts/build/mf2pt1.pl
@@ -21,7 +21,7 @@
 # version 2006/05/20 or later.                                         #
 ########################################################################
 
-our $VERSION = "2.4.4";   # mf2pt1 version number
+our $VERSION = "2.4.4-lilypond";   # mf2pt1 version number
 require 5.6.1;            # I haven't tested mf2pt1 with older Perl versions
 
 use File::Basename;
@@ -726,7 +726,7 @@ sub output_trailer ()
 {
     print OUTFILE <<"ENDTRAILER";
 /.notdef {
-        0 @{[$fontbbox[2]-$fontbbox[0]]} hsbw
+        0 @{[frac_string (frac_approx ($fontbbox[2] - $fontbbox[0]))]}hsbw
         endchar
         } ND
 end