~mdw
/
xfonts-traditional
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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) {
['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;
}
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) {
}
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 $!";
my $newdoneh = new IO::File "$fontdir/$donefile.new", 'w'
or die "$fontdir $!";
print $newdoneh Dumper($newdone) or die "$fontdir $!";