wip packaging

[xfonts-traditional] / update-xfonts-traditional

diff --git a/update-xfonts-traditional b/update-xfonts-traditional
index d34157f..df71fce 100755 (executable)
--- a/update-xfonts-traditional
+++ b/update-xfonts-traditional
@@ -148,7 +148,7 @@ sub processpcfgz ($$$$) {
     my ($usread,$uswrite);
     my ($reader,$writer);
     my @children;
-    foreach my $proc (['zcat'], ['pcf2bdf'], [],
+    foreach my $proc (['gunzip'], ['pcf2bdf'], [],
                      ['bdftopcf'],['',qw(gzip -1)]) {
        my $isfinal = (@$proc && $proc->[0] eq '');
        if (!$isfinal) {
@@ -282,13 +282,18 @@ sub processfontdir ($) {
        }
        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 $!";