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/wizards.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/wizards.pm')

diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index b0f03e340..116df8be2 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -4,6 +4,7 @@ package wizards;
 use strict;
 use c;
 use common;
+# perl_checker: require interactive
 
 =head1 NAME
 
@@ -89,7 +90,7 @@ sub new {
 
 
 sub check_rpm {
-    my ($in, $rpms) = @_;
+    my ($in, $rpms) = @_; # perl_checker: $in = interactive->new
     foreach my $rpm (@$rpms) {
         next if $in->do_pkgs->is_installed($rpm);
         if ($in->ask_okcancel(N("Error"), N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", $rpm))) {
-- 
cgit v1.2.1