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/diskdrake/resize_ntfs.pm  | 4 ++--
 perl-install/fs/partitioning_wizard.pm | 2 ++
 perl-install/modules/modprobe_conf.pm  | 1 +
 perl-install/modules/modules_conf.pm   | 1 +
 perl-install/security/level.pm         | 4 ++--
 perl-install/standalone/finish-install | 1 +
 perl-install/standalone/scannerdrake   | 3 ++-
 perl-install/wizards.pm                | 3 ++-
 8 files changed, 13 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/resize_ntfs.pm b/perl-install/diskdrake/resize_ntfs.pm
index 1b24a9707..16c2f9459 100644
--- a/perl-install/diskdrake/resize_ntfs.pm
+++ b/perl-install/diskdrake/resize_ntfs.pm
@@ -5,7 +5,7 @@ use strict;
 
 use run_program;
 use common;
-
+# perl_checker: require interactive
 
 sub new {
     my ($type, $_device, $dev) = @_;
@@ -13,7 +13,7 @@ sub new {
 }
 
 sub check_prog {
-    my ($in) = @_;
+    my ($in) = @_; # perl_checker: $in = interactive->new
     #- ensure_binary_is_installed checks binary chrooted, whereas we run the binary non-chrooted (pb for Mageia One)
     $::isInstall || whereis_binary('ntfsresize') || $in->do_pkgs->ensure_binary_is_installed('ntfsprogs', 'ntfsresize');
 }
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index a275d2774..2cf03e86a 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -13,6 +13,8 @@ use partition_table;
 use partition_table::raw;
 use partition_table::dos;
 use POSIX qw(ceil);
+use mygtk2;
+use ugtk2 qw(:wrappers);
 
 #- unit of $mb is mega bytes, min and max are in sectors, this
 #- function is used to convert back to sectors count the size of
diff --git a/perl-install/modules/modprobe_conf.pm b/perl-install/modules/modprobe_conf.pm
index 7c80ee687..c9ad3ff5c 100644
--- a/perl-install/modules/modprobe_conf.pm
+++ b/perl-install/modules/modprobe_conf.pm
@@ -2,6 +2,7 @@ package modules::modprobe_conf; # $Id: modprobe_conf.pm 259199 2009-08-13 10:18:
 
 use log;
 use common;
+# perl_checker: require modules::any_conf
 
 our @ISA = qw(modules::any_conf);
 
diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm
index b75c4e026..5a6242ff5 100644
--- a/perl-install/modules/modules_conf.pm
+++ b/perl-install/modules/modules_conf.pm
@@ -2,6 +2,7 @@ package modules::modules_conf; # $Id: modules_conf.pm 228209 2007-09-16 23:09:00
 
 use log;
 use common;
+# perl_checker: require modules::any_conf
 
 our @ISA = qw(modules::any_conf);
 
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
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 9264436ad..a57c42a63 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -245,6 +245,7 @@ sub encrypt_home {
 
     run_program::rooted($::prefix, 'umount', $home);
     run_program::rooted($::prefix, 'cryptsetup', 'luksClose', $user->{name});
+    undef $wait;
 }
 
 sub call {
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index da7376813..112953b27 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -322,6 +322,7 @@ sub tryConfScanner {
 		modules::append_to_modules_loaded_at_startup_for_all_kernels($m);
 	    }
 	}
+        undef $wait;
     }
     if ($scanner::scannerDB->{$model}{ask} =~ /DEVICE/ || !$port) {
 	$port ||= N("Auto-detect available ports");
@@ -505,7 +506,7 @@ sub mainwindow {
 		    $in->wait_message(N("Please wait"),
 				      N("Searching for new scanners..."));
 		my @f = scanner::detect(@configured);
-		$wait = undef;
+		undef $wait;
 		if (@f) { 
 		    $changed = auto();
 		}
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