summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-05-19 00:29:10 +0000
committerThierry Vignaud <tv@mageia.org>2011-05-19 00:29:10 +0000
commitad804a1c57135503fb3bf710ea0d08303c63027a (patch)
treeb32030dbe24a876c3d1d04b7765e32bef996fdb6 /perl-install
parent2c16cebf32d5dc598c24edcfe7f557c9688ab0c3 (diff)
downloaddrakx-ad804a1c57135503fb3bf710ea0d08303c63027a.tar
drakx-ad804a1c57135503fb3bf710ea0d08303c63027a.tar.gz
drakx-ad804a1c57135503fb3bf710ea0d08303c63027a.tar.bz2
drakx-ad804a1c57135503fb3bf710ea0d08303c63027a.tar.xz
drakx-ad804a1c57135503fb3bf710ea0d08303c63027a.zip
(set) perl_checker cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/security/level.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm
index 79879336d..15dcdc2fe 100644
--- a/perl-install/security/level.pm
+++ b/perl-install/security/level.pm
@@ -26,7 +26,7 @@ sub get() {
sub set {
my ($security) = @_;
- my @levelnames = ( 'none', 'standard', 'secure' );
+ my @levelnames = ('none', 'standard', 'secure');
# use Standard level if specified level is out of range
$security = 1 if $security > $#levelnames;
run_program::rooted($::prefix, 'msec', '-q', '-f', @levelnames[$security]);