summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-10-11 10:39:17 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-10-11 10:39:17 +0000
commit449866781232d26acceda469852fad26fc5e8da6 (patch)
tree0174ba63d9732f9b2c6547dec26c177a88c6d098 /perl-install/standalone
parent01288c52beacce60c2cfea1878b30d69b7b0a55b (diff)
downloaddrakx-449866781232d26acceda469852fad26fc5e8da6.tar
drakx-449866781232d26acceda469852fad26fc5e8da6.tar.gz
drakx-449866781232d26acceda469852fad26fc5e8da6.tar.bz2
drakx-449866781232d26acceda469852fad26fc5e8da6.tar.xz
drakx-449866781232d26acceda469852fad26fc5e8da6.zip
dialog of install options
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 497f50649..967b17711 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -171,10 +171,12 @@ sub search_windows_font {
sub search_dir_font {
my @font_list_tmp = ();
my @font_list_tmpp = ();
+ my $dir ;
my $fn = $_;
if (!(-e $fn )) { print "$_ :: no such file or directory \n";}
else {
if ( -d $fn ) {
+ $dir = $fn;
foreach my $i (all($fn)) {
if (($i =~ /.ttf$/i) || ($i =~ /.pfa$/i) || ($i =~ /.pfb$/i) || ($i =~ /.pcf$/i) || ($i =~ /.pcf.gz$/i)) {
push @font_list_tmp, "$i";
@@ -193,7 +195,7 @@ sub search_dir_font {
!grep /$fn/, (@installed_fonts) and push @font_list, "$fn";
}
}
- print "Fonts in directory : ".$_."\n" foreach (@font_list_tmp);
+ print "Fonts in directory ".$dir." : ".$_."\n" foreach (@font_list_tmp);
}
}