From ad804a1c57135503fb3bf710ea0d08303c63027a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 19 May 2011 00:29:10 +0000
Subject: (set) perl_checker cleanup

---
 perl-install/security/level.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/security')

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]);
-- 
cgit v1.2.1