From 57adb120500fb37ea9e97a2eff3e4d3cd7feec21 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 17 Feb 2003 23:23:34 +0000 Subject: replace %level_list with level_list() so that N("...") is called at runtime instead of compile-time --- perl-install/security/level.pm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'perl-install/security/level.pm') diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm index 368ab4c5a..234fb2d4b 100644 --- a/perl-install/security/level.pm +++ b/perl-install/security/level.pm @@ -5,20 +5,20 @@ use common; use run_program; -my %level_list = ( - 0 => N("Welcome To Crackers"), - 1 => N("Poor"), - 2 => N("Standard"), - 3 => N("High"), - 4 => N("Higher"), - 5 => N("Paranoid"), - ); - -sub to_string { $level_list{$_[0]} } -sub from_string { - my %sec_levels = reverse %level_list; - $sec_levels{$_[0]} || 2; +sub level_list { + ( + 0 => N("Welcome To Crackers"), + 1 => N("Poor"), + 2 => N("Standard"), + 3 => N("High"), + 4 => N("Higher"), + 5 => N("Paranoid"), + ); } + +sub to_string { +{ level_list() }->{$_[0]} } +sub from_string { +{ reverse level_list() }->{$_[0]} || 2 } + sub get_string { to_string(get() || 2) } sub get_common_list { map { to_string($_) } (2, 3, 4) } -- cgit v1.2.1