diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-11 10:39:17 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-11 10:39:17 +0000 |
| commit | 449866781232d26acceda469852fad26fc5e8da6 (patch) | |
| tree | 0174ba63d9732f9b2c6547dec26c177a88c6d098 /perl-install/standalone/drakfont | |
| parent | 01288c52beacce60c2cfea1878b30d69b7b0a55b (diff) | |
| download | drakx-backup-do-not-use-449866781232d26acceda469852fad26fc5e8da6.tar drakx-backup-do-not-use-449866781232d26acceda469852fad26fc5e8da6.tar.gz drakx-backup-do-not-use-449866781232d26acceda469852fad26fc5e8da6.tar.bz2 drakx-backup-do-not-use-449866781232d26acceda469852fad26fc5e8da6.tar.xz drakx-backup-do-not-use-449866781232d26acceda469852fad26fc5e8da6.zip | |
dialog of install options
Diffstat (limited to 'perl-install/standalone/drakfont')
| -rwxr-xr-x | perl-install/standalone/drakfont | 4 |
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); } } |