summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
commit4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25 (patch)
treea12104a3a9468cc42b83634feb5e6a2e72003532 /perl-install/lang.pm
parentf298cec9f7d4bb4dc1972cc737007b6da86d4cb0 (diff)
downloaddrakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.gz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.bz2
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.xz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.zip
better english (writing style rather than spoken one)
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index d59bd331f..fbf19d617 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -9,7 +9,7 @@ use log;
#- extra distinctions)
#- [0]: lang name in english
#- [1]: transliterated locale name in the locale name (used for sorting)
-#- [2]: default locale name to use for that language if there isn't
+#- [2]: default locale name to use for that language if there is not
#- an existing locale for the combination language+country choosen
#- [3]: geographic groups that this language belongs to (for displaying
#- in the menu grouped in smaller lists), 1=Europe, 2=Asia, 3=Africa,
@@ -100,7 +100,7 @@ our %langs = (
'oc' => [ 'Occitan', 'Occitan', 'oc_FR', '1 ', 'iso-8859-1', 'oc:fr_FR:fr' ],
'pa' => [ 'Punjabi', 'ZZ Punjabi', 'pa_IN', ' 2 ', 'unicode' ],
# 'tl' in priority position for now, as 'ph' is not yet official and 'tl'
-# is used instead. Monolingual window managers won't see the menus otherwise
+# is used instead. Monolingual window managers will not see the menus otherwise
'ph' => [ 'Filipino', 'Filipino', 'ph_PH', ' 2 ', 'iso-8859-1', 'tl:ph' ],
'pl' => [ 'Polish', 'Polski', 'pl_PL', '1 ', 'iso-8859-2' ],
'pt' => [ 'Portuguese', 'Portugues', 'pt_PT', '1 3 ', 'iso-8859-15', 'pt_PT:pt:pt_BR' ],
@@ -174,7 +174,7 @@ sub text_direction_rtl() {
#- 4=Oceania&Pacific, 5=America (if you wonder, it's the order
#- used in the olympic flag)
#-
-#- Note: for countries for which a glibc locale don't exist (yet) I tried to
+#- Note: for countries for which a glibc locale do not exist (yet) I tried to
#- put a locale that makes sense; and a '#' at the end of the line to show
#- the locale is not the "correct" one. 'en_US' is used when no good choice
#- is available.
@@ -520,7 +520,7 @@ my %IM_config =
ami => {
XIM => 'Ami',
#- NOTE: there are several possible versions of ami, for the different
- #- desktops (kde, gnome, etc). So XIM_PROGRAM isn't defined; it will
+ #- desktops (kde, gnome, etc). So XIM_PROGRAM is not defined; it will
#- be the xinitrc script, XIM section, that will choose the right one
#- XIM_PROGRAM => 'ami',
XMODIFIERS => '@im=Ami',
@@ -841,7 +841,7 @@ my %charset2pango_font = (
'iso-8859-7' => "Kerkis 14",
'jisx0208' => "Sans 14",
#- Nimbus Sans L is missing some chars used by some cyrillic languages,
- #- but tose haven't yet DrakX translations; it also misses vietnamese
+ #- but tose have not yet DrakX translations; it also misses vietnamese
#- latin chars; all other latin and cyrillic are covered.
'default' => "Nimbus Sans L 12"
);
@@ -872,7 +872,7 @@ sub set {
}
my $lang = $locale->{lang};
- exists $langs{$lang} or log::l("lang::set: trying to set to $lang but I don't know it!"), return;
+ exists $langs{$lang} or log::l("lang::set: trying to set to $lang but I do not know it!"), return;
#- set all LC_* variables to a unique locale ("C"), and only redefine
#- LC_COLLATE (for sorting) and LANGUAGE (for the po files)
@@ -1086,7 +1086,7 @@ sub write {
s/^(GreetString)=.*/$1=$welcome/;
s/^(Language)=.*/$1=$locale->{lang}/;
if (!member($kde_charset, 'iso8859-1', 'iso8859-15')) {
- #- don't keep the default for those
+ #- do not keep the default for those
my $font_list = $charset2kde_font{l2charset($locale->{lang})} || $charset2kde_font{default};
my $font_small = $font_list->[0];
my $font_huge = $font_small;
@@ -1254,13 +1254,13 @@ sub check() {
$err->("invalid charset $_ ($_ does not exist in \%charsets)") foreach difference2(\@wanted_charsets, [ keys %charsets ]);
$err->("invalid charset $_ in \%charset2kde_font ($_ does not exist in \%charsets)") foreach difference2([ keys %charset2kde_font ], [ 'default', keys %charsets ]);
- $err->("default locale $_->[1] of lang $_->[0] isn't listed in \@locales")
+ $err->("default locale $_->[1] of lang $_->[0] is not listed in \@locales")
foreach grep { !member($_->[1], @locales) } map { [ $_, l2locale($_) ] } list_langs();
$err->("lang image for lang $_->[0] is missing (file $_->[1])")
foreach grep { !(-e $_->[1]) } map { [ $_, "pixmaps/langs/lang-$_.png" ] } list_langs();
- $err->("default locale $_->[1] of country $_->[0] isn't listed in \@locales")
+ $err->("default locale $_->[1] of country $_->[0] is not listed in \@locales")
foreach grep { !member($_->[1], @locales) } map { [ $_, c2locale($_) ] } list_countries();