diff options
| -rw-r--r-- | perl-install/common.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_interactive.pm | 2 | ||||
| -rw-r--r-- | perl-install/lang.pm | 18 |
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 { |