From 449866781232d26acceda469852fad26fc5e8da6 Mon Sep 17 00:00:00 2001
From: Sebastien Dupont <sdupont@mandriva.com>
Date: Thu, 11 Oct 2001 10:39:17 +0000
Subject: dialog of install options

---
 perl-install/standalone/drakfont | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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);
     }
 }
 
-- 
cgit v1.2.1