diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-02 13:19:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-02 13:19:18 +0000 |
| commit | 5cbf1d0899b3233058682cfa301358a69bc48762 (patch) | |
| tree | fa61b3ff0304bf0b0e58f4726e7c3794a1c8be19 /perl-install | |
| parent | b141dd78aa3498f8f492e678ed80355a1c5e9103 (diff) | |
| download | drakx-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.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 { |