add some "use xxx;" (the idea is to see what the package needs, but i may rollback after understanding better dependencies)

7 files changed, 12 insertions, 1 deletions

diff --git a/perl-install/Xconfig/default.pm b/perl-install/Xconfig/default.pm
index f41fccaf7..3f9038299 100644
--- a/perl-install/Xconfig/default.pm
+++ b/perl-install/Xconfig/default.pm
@@ -7,6 +7,7 @@ use Xconfig::xfree;
 use keyboard;
 use common;
 use mouse;
+use modules::any_conf;
 
 
 sub configure {
diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm
index 91106b2e0..8c46c3600 100644
--- a/perl-install/Xconfig/main.pm
+++ b/perl-install/Xconfig/main.pm
@@ -9,6 +9,7 @@ use Xconfig::resolution_and_depth;
 use Xconfig::various;
 use Xconfig::screen;
 use Xconfig::test;
+use Xconfig::xfree;
 use common;
 use any;
 
diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm
index 6a8a93551..5bd8ce8ca 100644
--- a/perl-install/Xconfig/various.pm
+++ b/perl-install/Xconfig/various.pm
@@ -158,6 +158,9 @@ sub setupFB {
     if ($::isInstall) {
 	($bootloader, $all_hds) = ($::o->{bootloader}, $::o->{all_hds});
     } else {
+	require fsedit;
+	require fs;
+	require bootloader;
 	$all_hds = fsedit::get_hds();
 	fs::get_info_from_fstab($all_hds);
 
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index f7bcc9348..080bb375d 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -5,11 +5,13 @@ use strict;
 
 use common;
 use fs::type;
+use fs::loopback;
+use fs::format;
+use fs;
 use partition_table;
 use partition_table::raw;
 use detect_devices;
 use run_program;
-use fs::loopback;
 use devices;
 use fsedit;
 use raid;
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 9f255f214..358815120 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -7,6 +7,7 @@ use detect_devices;
 use list_modules;
 use modules;
 use mouse;
+use services;
 use network::network;
 use network::tools;
 use network::thirdparty;
diff --git a/perl-install/network/thirdparty.pm b/perl-install/network/thirdparty.pm
index 3aa3d7b86..8950832e6 100644
--- a/perl-install/network/thirdparty.pm
+++ b/perl-install/network/thirdparty.pm
@@ -5,6 +5,8 @@ use common;
 use detect_devices;
 use run_program;
 use services;
+use fs::get;
+use fs;
 use log;
 
 #- network_settings is an hash of categories (rtc, dsl, wireless, ...)
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index d5c05e8de..82ce9527e 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -10,6 +10,7 @@ use common;
 use partition_table::raw;
 use partition_table::dos;
 use partition_table;
+use fs::type;
 use c;
 
 my %gpt_types = (