die "no foundry maps\n" unless %foundrymap;
}
+sub processpcfgz ($$) {
+ my ($inpcfgz,$outpcfgz) = @_;
+ my $inh = new IO::File $inpcfgz, 'r', or die "$inpcfgz $!";
+ my $outh = new IO::File $outpcfgz, 'w' or die "$outpcfgz $!";
+ my $inpipe = new IO:Handle or die $!;
+ my $outpipe = new IO:Handle or die $!;
+ my $inchild = open $inpipe, "-|"; defined $inchild or die $!;
+ if (!$inchild) {
+
+ opne
+
sub processfontdir ($) {
my ($fontdir) = @_;
if (!opendir FD, $fontdir) {
return;
}
my $olddone = do "$fontdir/$donefile";
- if (!$done) {
+ if (!$olddone) {
die "$fontdir $! $@ " unless $!==&ENOENT;
- $done = { };
+ $olddone = { };
}
my $newdone = { };
my $log = new IO::File "$fontdir/$logfile", "w"
}
die "$fontdir $dent" unless -f _;
my $stats = join ' ', ((stat _)[1,7,9,10]);
- $tdone = $olddone->{$dent};
+ my $tdone = $olddone->{$dent};
if (defined $tdone && $tdone eq $stats) {
$found{$dent} = 2;
$newdone->{$dent} = $stats;
}
my $outdent = $fontprefix.$dent;
- my $r = processpcfgz("$fontdir/$dent","$fontdir/$outdent.new");
+ my $r = processpcfgz("$fontdir/$dent",
+ "$fontdir/$outdent.new",
+ $dent");
if ($r !~ m/^\d/) {
print $logfile "%s: unchanged - %s\n", $dent, $r;
unlink "$fontdir/$outdent.new" or die "$fontdir $outdent $!";