summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-02 13:19:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-02 13:19:18 +0000
commit5cbf1d0899b3233058682cfa301358a69bc48762 (patch)
treefa61b3ff0304bf0b0e58f4726e7c3794a1c8be19 /perl-install
parentb141dd78aa3498f8f492e678ed80355a1c5e9103 (diff)
downloaddrakx-backup-do-not-use-5cbf1d0899b3233058682cfa301358a69bc48762.tar
drakx-backup-do-not-use-5cbf1d0899b3233058682cfa301358a69bc48762.tar.gz
drakx-backup-do-not-use-5cbf1d0899b3233058682cfa301358a69bc48762.tar.bz2
drakx-backup-do-not-use-5cbf1d0899b3233058682cfa301358a69bc48762.tar.xz
drakx-backup-do-not-use-5cbf1d0899b3233058682cfa301358a69bc48762.zip
please perl_checker
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm2
-rw-r--r--perl-install/install_interactive.pm2
-rw-r--r--perl-install/lang.pm18
3 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index a3deaac16..79e0271ff 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -258,7 +258,7 @@ sub require_root_capability {
sub check_for_xserver {
if (!defined $::xtest) {
- $::xtest = $ENV{DISPLAY} && (system('/usr/X11R6/bin/xtest') == 0);
+ $::xtest = $ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0;
}
return $::xtest;
}
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 31cc0e1f0..e6982da16 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -154,7 +154,7 @@ sub partitionWizardSolutions {
$@ and die N("The FAT resizer is unable to handle your partition,
the following error occured: %s", $@);
my $min_win = do {
- my $w = $o->wait_message(N("Resizing"), N("Computing the size of the Windows partition"));
+ my $_w = $o->wait_message(N("Resizing"), N("Computing the size of the Windows partition"));
$resize_fat->min_size;
};
#- make sure that even after normalizing the size to cylinder boundaries, the minimun will be saved,
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 7d2c6e0f3..b5dcacd8e 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -541,18 +541,18 @@ sub charset2kde_font {
# on the "charset" defined by language array. This allows to selecting
# an appropriate font for each language.
my %charset2pango_font = (
- 'tis620' => "Norasi",
- 'tscii' => "TSC_Avarangal",
- 'tcvn' => "ClearlyU",
- 'armscii-8' => "Artsounk",
- 'georgian-ps' =>"ClearlyU",
- 'iso-8859-6' => "ClearlyU",
- 'iso-8859-7' => "Kerkis",
- 'iso-8859-8' => "KacstBook",
+ 'tis620' => "Norasi",
+ 'tscii' => "TSC_Avarangal",
+ 'tcvn' => "ClearlyU",
+ 'armscii-8' => "Artsounk",
+ 'georgian-ps' => "ClearlyU",
+ 'iso-8859-6' => "ClearlyU",
+ 'iso-8859-7' => "Kerkis",
+ 'iso-8859-8' => "KacstBook",
#- Nimbus Sans L is missing some chars used by some cyrillic languages,
#- but tose haven't yet DrakX translations; it also misses vietnamese
#- latin chars; all other latin and cyrillic are covered.
- 'default' => "Nimbus Sans L"
+ 'default' => "Nimbus Sans L"
);
sub charset2pango_font {