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 | ad804a1c57135503fb3bf710ea0d08303c63027a (patch) | |
| tree | b32030dbe24a876c3d1d04b7765e32bef996fdb6 /perl-install | |
| parent | 2c16cebf32d5dc598c24edcfe7f557c9688ab0c3 (diff) | |
| download | drakx-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.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]); |