From 5cbf1d0899b3233058682cfa301358a69bc48762 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 2 Feb 2003 13:19:18 +0000
Subject: please perl_checker

---
 perl-install/common.pm              |  2 +-
 perl-install/install_interactive.pm |  2 +-
 perl-install/lang.pm                | 18 +++++++++---------
 3 files changed, 11 insertions(+), 11 deletions(-)

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1