ensure "common" is imported to have N()

8 files changed, 8 insertions, 6 deletions

diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 59bd74c0f..b5e4e4053 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -21,7 +21,7 @@ use lib qw(/usr/lib/libDrakX);
 
 use standalone;
 use interactive;
-use MDK::Common;
+use common;
 require Gtk;
 require Gtk::Gdk::ImlibImage;
 use my_gtk qw(:helpers :wrappers :ask);
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index d5d4e3e51..12793971f 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -29,6 +29,7 @@ use lib qw(/usr/lib/libDrakX);
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
 
 use interactive;
+use common;
 use Config;
 use any;
 use ugtk qw(:helpers);
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index a94d9d6b0..114185a75 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -3,10 +3,8 @@
 use lib qw(/usr/lib/libDrakX);
 use standalone;
 
-use MDK::Common;
-
+use common;
 use my_gtk;
-
 use interactive;
 
 my $in = 'interactive'->vnew('su', 'default');
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 3618ab6d0..8455e8d74 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -2,7 +2,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 use standalone;
-use MDK::Common;
+use common;
 use Gtk;
 use interactive;
 use ugtk qw(:helpers :wrappers);
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 850f840d2..72385a07a 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -2,6 +2,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 use standalone;
+use common;
 use harddrake::ui;
 
 if ("@ARGV" =~ /--help|-h/) {
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index 2d2d9ac83..13b18027b 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -5,6 +5,7 @@ use lib qw(/usr/lib/libDrakX);
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
 
 use interactive;
+use common;
 use lang;
 use any;
 
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 2b43eb087..2c79e0e62 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -26,6 +26,7 @@ use lib qw(/usr/lib/libDrakX);
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
 
 use interactive;
+use common;
 use any;
 use Config;
 init Gtk;
@@ -33,7 +34,6 @@ Gtk->set_locale;
 use my_gtk qw(:helpers :wrappers);
 use ugtk qw(:helpers);
 
-use MDK::Common;
 use Data::Dumper;
 #-------------------------------------------------------------
 # i18n routines
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 8be3a7907..19770d97f 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -25,6 +25,7 @@ use standalone;     #- warning, standalone must be loaded very first, for 'expla
 use interactive;
 use printerdrake;
 use printer;
+use common;
 use c;
 
 local $_ = join '', @ARGV;