die "no foundry maps\n" unless %foundrymap;
}
+sub filter_st_isok ($) {
+ my ($ch) = @_;
+ my $st = $ch->{St};
+ return !$st || $ch->{SigOK}{($st & ~128)};
+}
+
sub processpcfgz ($$$$) {
my ($inpcfgz,$outpcfgz,$logfile,$what) = @_;
print $reportfh "processing $inpcfgz to $outpcfgz\n" if $verbose>=2;
$ch->{St} = $?;
}
- my $st_isok = sub {
- my ($ch) = @_;
- my $st = $ch->{St};
- return !$st || $ch->{SigOK}{($st & ~128)};
- };
-
if ($tolerate_bad_fonts &&
$r eq 'no bdf data' &&
- $st_isok->($ch{'gunzip'}) &&
+ filter_st_isok($ch{'gunzip'}) &&
($ch{'pcf2bdf'}{St} & ~128) == 6)
{
$r = "pcf2bdf failed ($ch{'pcf2bdf'}{St})";
$ch{'pcf2bdf'}{SigOK}{6} = 1;
}
foreach my $ch (@children) {
- if (!$st_isok->($ch)) {
+ if (!filter_st_isok($ch)) {
die "update-xfonts-traditional:".
" $ch->{Exe} [$ch->{Pid}] for $inpcfgz".
" failed $ch->{St}".