summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-20 10:07:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-20 10:07:41 +0000
commit4b661e0696c3ad97c42f0c263b7ae31ab1919e59 (patch)
tree8cff3ea80e212a4b59ca9fb0caf6a3d87d63c98d /perl-install/standalone/drakfont
parent1fb8bac4155dfe2effb0e1b1daddaf34fd39c995 (diff)
downloaddrakx-backup-do-not-use-4b661e0696c3ad97c42f0c263b7ae31ab1919e59.tar
drakx-backup-do-not-use-4b661e0696c3ad97c42f0c263b7ae31ab1919e59.tar.gz
drakx-backup-do-not-use-4b661e0696c3ad97c42f0c263b7ae31ab1919e59.tar.bz2
drakx-backup-do-not-use-4b661e0696c3ad97c42f0c263b7ae31ab1919e59.tar.xz
drakx-backup-do-not-use-4b661e0696c3ad97c42f0c263b7ae31ab1919e59.zip
(put_font_dir): $/variable is unlikely what was initially intended
(chk_empty_xfs_path): typo fix (search_dir_font_uninstall): further simplify
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont13
1 files changed, 3 insertions, 10 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 21b1853b5..4c993ac74 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -191,7 +191,7 @@ sub list_fontpath() {
sub chk_empty_xfs_path() {
foreach my $tmp_path (@installed_fonts_path) {
- if (every { /^fonts/ || /^type/ } all($tmp_path))) {
+ if (every { /^fonts/ || /^type/ } all($tmp_path)) {
system("chkfontpath -r $tmp_path ")
or print "PERL::system command failed during chkfontpath\n";
}
@@ -284,14 +284,7 @@ sub search_dir_font() {
sub search_dir_font_uninstall {
my ($fn) = @_;
- my @font_list_tmp;
- if (-d $fn) {
- @font_list_tmp = grep { is_a_font($_) } all($fn);
- } else {
- push @font_list_tmp, $fn if is_a_font($fn);
- }
- @font_list = uniq(@font_list, @installed_fonts_full_path);
- print "Fonts to uninstal: " . $_ . "\n" foreach @font_list;
+ print "Fonts to uninstal: " . $_ . "\n" foreach uniq(@font_list, -d $fn ? (grep { is_a_font($_) } all($fn)) : if_(is_a_font($fn), $fn));
}
sub search_dir_font_uninstall_gi() {
@@ -367,7 +360,7 @@ sub put_font_dir() {
}
if (!$so && $gs) {
- convert_ttf_fonts([ glob("$/drakfont_dir/tmp/tmp/*.ttf") ], 1);
+ convert_ttf_fonts([ glob("$drakfont_dir/tmp/tmp/*.ttf") ], 1);
system("cd $drakfont_dir/tmp/tmp && mv *.gsf *.pfb *.pfm ../Type1");
system("cd $drakfont_dir/tmp/Type1 && $type1inst");
interactive_progress($pbar2, 0.1, N("type1inst building"));