From 58d2785e1dae41645c7e4d36d86fd60bb905a7c3 Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Sat, 26 Jan 2008 03:42:35 +0100
Subject: [PATCH] mf2ptf1.pl: Sort MetaPost output files.  Fixes #565.

---
 buildscripts/mf2pt1.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/buildscripts/mf2pt1.pl b/buildscripts/mf2pt1.pl
index 3d4ed5a462..1b7f903253 100644
--- a/buildscripts/mf2pt1.pl
+++ b/buildscripts/mf2pt1.pl
@@ -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) {
-- 
2.39.5