move to MDK::Common, bool->to_bool

11 files changed, 14 insertions, 11 deletions

diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake
index b7d06dc93..8584aa4ae 100755
--- a/perl-install/standalone/adduserdrake
+++ b/perl-install/standalone/adduserdrake
@@ -2,7 +2,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :functional :system :file);
+use common;
 use interactive;
 use standalone;
 use any;
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 7bf80d398..01c0ed294 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -23,7 +23,7 @@
 
 
 use lib qw(/usr/lib/libDrakX);
-use common qw(:common :functional);
+use common;
 use diskdrake;
 use standalone;
 use interactive_gtk;
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index d55cad90d..d0c718ded 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -3,7 +3,7 @@
 use lib qw(/usr/lib/libDrakX);
 
 
-use common qw(:common :file :functional);
+use common;
 use interactive;
 use standalone;
 use any;
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index ce8a2da10..7e09755b6 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -15,7 +15,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :system :file);
+use common;
 use interactive;
 use standalone;
 use log;
@@ -656,6 +656,9 @@ Click on Configure to launch the setup wizard.", $setup_state));
 
 #-------------------------------------------------
 #- $Log$
+#- Revision 1.45  2001/07/24 22:39:28  prigaux
+#- move to MDK::Common, bool->to_bool
+#-
 #- Revision 1.44  2001/05/16 11:13:21  damien
 #- added icon management
 #-
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index da5aac5ea..c3b325d1e 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -2,7 +2,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:system :file);
+use common;
 use interactive;
 use standalone;
 use mouse;
diff --git a/perl-install/standalone/drakxconf b/perl-install/standalone/drakxconf
index 30a8468b0..f7a4fb794 100755
--- a/perl-install/standalone/drakxconf
+++ b/perl-install/standalone/drakxconf
@@ -7,7 +7,7 @@ use interactive;
 use standalone;
 use keyboard;
 use Xconfigurator_consts;
-use common qw(:system);
+use common;
 use c;
 
 local $_ = join '', @ARGV;
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index b2e961436..a7f750944 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -2,7 +2,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :functional :file);
+use common;
 use interactive;
 use standalone;
 use services;
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index 631193d34..d43ff7e02 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -7,7 +7,7 @@ use interactive;
 use keyboard;
 use standalone;
 use Xconfigurator_consts;
-use common qw(:system);
+use common;
 use c;
 
 $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
diff --git a/perl-install/standalone/livedrake b/perl-install/standalone/livedrake
index 664f7b897..839339754 100755
--- a/perl-install/standalone/livedrake
+++ b/perl-install/standalone/livedrake
@@ -2,7 +2,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :system :file);
+use common;
 use interactive;
 use standalone;
 use run_program;
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index 439b24d56..bc99d6ede 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -2,7 +2,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :system);
+use common;
 use interactive;
 use standalone;
 use modules;
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 294265eb9..02c400211 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -24,7 +24,7 @@ use interactive;
 use standalone;
 use my_gtk qw(:helpers :wrappers);
 #-use Data::Dumper;
-use common qw(:common :file :functional :system);
+use common;
 use strict;
 use network::netconnect;