summaryrefslogtreecommitdiffstats
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
commitb453f5312685f86031c2dfe2384651b4c73aa39f (patch)
treeb32030dbe24a876c3d1d04b7765e32bef996fdb6
parent9b3526002366fa5085abb50b084745cf3950b1f7 (diff)
downloaddrakx-backup-do-not-use-b453f5312685f86031c2dfe2384651b4c73aa39f.tar
drakx-backup-do-not-use-b453f5312685f86031c2dfe2384651b4c73aa39f.tar.gz
drakx-backup-do-not-use-b453f5312685f86031c2dfe2384651b4c73aa39f.tar.bz2
drakx-backup-do-not-use-b453f5312685f86031c2dfe2384651b4c73aa39f.tar.xz
drakx-backup-do-not-use-b453f5312685f86031c2dfe2384651b4c73aa39f.zip
(set) perl_checker cleanup
-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]);