summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/mf2pt1
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-07-13 23:16:34 +0000
committerKarl Berry <karl@freefriends.org>2012-07-13 23:16:34 +0000
commit50b580f0458334eb21a6441d314893e79dc206ea (patch)
tree0ef5400ed6ef09591514cd03f4d12015901f5a7b /Master/texmf-dist/scripts/mf2pt1
parent2eb41d2379e42e342dfb2f41b38f85358a2cf53d (diff)
mf2pt1 2.5 (3jul12)
git-svn-id: svn://tug.org/texlive/trunk@27032 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/mf2pt1')
-rwxr-xr-xMaster/texmf-dist/scripts/mf2pt1/mf2pt1.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl b/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl
index e18d7a7ae57..ad3df2cdf84 100755
--- a/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl
+++ b/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl
@@ -21,7 +21,7 @@
# version 2006/05/20 or later. #
########################################################################
-our $VERSION = "2.4.6"; # mf2pt1 version number
+our $VERSION = "2.5"; # mf2pt1 version number
require 5.6.1; # I haven't tested mf2pt1 with older Perl versions
use File::Basename;
@@ -588,7 +588,7 @@ sub output_font_programs ()
my @fontprog;
push @fontprog, ("/$gname {",
frac_string (frac_approx ($charbbox[$charnum]->[0]),
- frac_approx ($charwd[$charnum] * $mag))
+ frac_approx ($charbbox[$charnum]->[2]))
. "hsbw");
my ($cpx, $cpy) =
($charbbox[$charnum]->[0], 0); # Current point (PostScript)