From 9186647ea5fd7505f6920c2debfd4f9e2000458f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 19:50:48 +0000
Subject: help perl_checker

---
 perl-install/security/level.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/security')

diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm
index b12caf19e..9b91067ff 100644
--- a/perl-install/security/level.pm
+++ b/perl-install/security/level.pm
@@ -3,7 +3,7 @@ package security::level;
 use strict;
 use common;
 use run_program;
-
+# perl_checker: require interactive
 
 sub level_list() {
     (
@@ -46,7 +46,7 @@ sub set {
 }
 
 sub level_choose {
-    my ($in, $security, $email) = @_;
+    my ($in, $security, $email) = @_; # perl_checker: $in = interactive->new
 
     my %help = (
       0 => N("This level is to be used with care, as it disables all additional security
-- 
cgit v1.2.1