From: Werner Lemberg <wl@gnu.org> Date: Sat, 26 Jan 2008 02:42:35 +0000 (+0100) Subject: mf2ptf1.pl: Sort MetaPost output files. Fixes #565. X-Git-Tag: release/2.11.38-1~21 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=58d2785e1dae41645c7e4d36d86fd60bb905a7c3;p=lilypond.git mf2ptf1.pl: Sort MetaPost output files. Fixes #565. --- 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) {