diff options
author | Thierry Vignaud <tv@mageia.org> | 2011-05-19 00:29:10 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2011-05-19 00:29:10 +0000 |
commit | b453f5312685f86031c2dfe2384651b4c73aa39f (patch) | |
tree | b32030dbe24a876c3d1d04b7765e32bef996fdb6 /perl-install | |
parent | 9b3526002366fa5085abb50b084745cf3950b1f7 (diff) | |
download | drakx-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
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/security/level.pm | 2 |
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]); |