kill unused variables

1 files changed, 1 insertions, 20 deletions

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 384e87b15..192e1d06d 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -97,9 +97,6 @@ my $xlsfonts = 0;
 my $windows  = 0;
 my $strong;
 my $replace;
-my $application;
-my $install;
-my $uninstall;
 my $so      = 1;
 my $gs      = 1;
 my $abi     = 1;
@@ -109,25 +106,12 @@ my @application;
 my @install;
 my @uninstall;
 my $interactive;
-my $text;
-my $vscrollbar;
-my $check4;
-my $check1;
-my $check2;
-my $check3;
 my $pbar;
 my $pbar1;
 my $pbar2;
 my $pbar3;
 my $font_box;
 my $central_widget;
-my $label1;
-my $label2;
-my $label3;
-my $label4;
-my $list_path;
-my $path_list;
-my $current_path;
 my $model;
 my $list;
 my $list_all_font_path;
@@ -162,7 +146,7 @@ foreach my $i (@application) {
 }
 
 # PATH and binary full path
-my $xfs_conffile = '/etc/fonts/fonts.conf';
+#my $xfs_conffile = '/etc/fonts/fonts.conf';
 my $drakfont_dir = '/usr/X11R6/lib/X11/fonts/drakfont';
 my $ttf2pt1      = '/usr/sbin/ttf2pt1';
 my $pfm2afm      = '/usr/sbin/pfm2afm';
@@ -171,13 +155,10 @@ my $chkfontpath  = '/usr/sbin/chkfontpath';
 # mkttfdir only knows about iso-8859-1, using ttmkfdir -u instead -- pablo
 my $ttmkfdir     = '/usr/sbin/ttmkfdir';
 my $fccache      = '/usr/bin/fc-cache';
-my $ghostscript;
 
 my @font_list;                 # list of fonts to install
 my @installed_fonts;           # list of installed fonts
 my @installed_fonts_path;      # list of path included in xfs
-my @fontsdir_to_install;       # list of fonts to uninstall
-my @fontsdir_to_uninstall;     # path to remove in xfs font file
 my @installed_fonts_full_path; # full path list of fonts to uninstall
 
 sub list_fontpath() {