Finish fixing 571.

[lilypond.git] / buildscripts / mf2pt1.pl

diff --git a/buildscripts/mf2pt1.pl b/buildscripts/mf2pt1.pl
index d3624e77b5fd160e3e6506babbb4308c9e70dbc0..1b7f9032536d5cb5481895d0d53e9756abbaaf37 100644 (file)
--- a/buildscripts/mf2pt1.pl
+++ b/buildscripts/mf2pt1.pl
@@ -7,7 +7,7 @@
 
 ########################################################################
 # mf2pt1                                                               #
-# Copyright (C) 2007 Scott Pakin                                       #
+# Copyright (C) 2008 Scott Pakin                                       #
 #                                                                      #
 # This program may be distributed and/or modified under the conditions #
 # of the LaTeX Project Public License, either version 1.3c of this     #
@@ -21,7 +21,7 @@
 # version 2006/05/20 or later.                                         #
 ########################################################################
 
-our $VERSION = "2.4.2";   # mf2pt1 version number
+our $VERSION = "2.4.3";   # mf2pt1 version number
 require 5.6.1;            # I haven't tested mf2pt1 with older Perl versions
 
 use File::Basename;
@@ -160,7 +160,7 @@ my $filedir;
 my $filenoext;
 my $versionmsg = "mf2pt1 version $VERSION
 
-Copyright (C) 2007 Scott Pakin
+Copyright (C) 2008 Scott Pakin
 
 This program may be distributed and/or modified under the conditions
 of the LaTeX Project Public License, either version 1.3c of this
@@ -429,7 +429,9 @@ sub get_bboxes ($)
     execute_command 1, ("mpost", "-mem=mf2pt1", "-progname=mpost",
                         "\\mode:=localfont; mag:=$mag; bpppix $bpppix; input $mffile");
     opendir (CURDIR, ".") || die "${progname}: $! ($filedir)\n";
-    @charfiles = grep /^$filebase.*\.\d+$/, readdir(CURDIR);
+    @charfiles = sort
+                   { ($a=~ /\.(\d+)$/)[0] <=> ($b=~ /\.(\d+)$/)[0] }
+                   grep /^$filebase.*\.\d+$/, readdir(CURDIR);
     close CURDIR;
     @fontbbox = (1000000, 1000000, -1000000, -1000000);
     foreach my $psfile (@charfiles) {