}
unlink "$fontdir/$olddent" or die "$fontdir $olddent $!";
$changed = 1;
+ $updated++;
+ }
+ if (!stat "$fontdir/fonts.dir") {
+ $!==&ENOENT or die "$fontdir $!";
+ } else {
+ $!=0; $?=0; system 'mkfontdir',$fontdir;
+ die "$fontdir $? $!" if $? or $!;
}
if (!$anypcfs) {
unlink "$fontdir/$logfile" or die "$fontdir $!";
unlink "$fontdir/$donefile" or $!==&ENOENT or die "$fontdir $!";
} elsif ($changed) {
- $!=0; $?=0; system 'mkfontdir',$fontdir;
- die "$fontdir $? $!" if $? or $!;
my $newdoneh = new IO::File "$fontdir/$donefile.new", 'w'
or die "$fontdir $!";
print $newdoneh Dumper($newdone) or die "$fontdir $!";