summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-04 02:16:34 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-04 02:16:34 +0000
commitd3218e0694c12a50fabeb595ef6eb853b0029656 (patch)
treefb5066a5872ac9cb3fd2a935c35532f27f923cdf /perl-install
parentd7b38982731b297fe1ad43fc9034290e33426c20 (diff)
downloaddrakx-d3218e0694c12a50fabeb595ef6eb853b0029656.tar
drakx-d3218e0694c12a50fabeb595ef6eb853b0029656.tar.gz
drakx-d3218e0694c12a50fabeb595ef6eb853b0029656.tar.bz2
drakx-d3218e0694c12a50fabeb595ef6eb853b0029656.tar.xz
drakx-d3218e0694c12a50fabeb595ef6eb853b0029656.zip
- upcase fields values (and btw reduce the number of strings to translate :-))
- simplify translating
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksec12
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index f93ac2840..4ca353089 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -41,8 +41,16 @@ use security::l10n;
my ($w, %fields);
############################ I18N ###################################
-my %inv_translations = map { translate($_) => $_ } N_("ALL"), N_("LOCAL"), N_("NONE"), N_("default"), N_("default"), N_("ignore"), N_("no"), N_("yes");
-my %translations = reverse %inv_translations;
+my %translations = (
+ 'ALL' => N("ALL"),
+ 'LOCAL' => N("LOCAL"),
+ 'NONE' => N("NONE"),
+ 'default' => N("Default"),
+ 'ignore' => N("Ignore"),
+ 'no' => N("No"),
+ 'yes' => N("Yes"),
+);
+my %inv_translations = reverse %translations;
sub to_i18n { map { $translations{$_} || $_ } @_ }
sub from_i18n { $inv_translations{$_[0]} || $_[0] }