From 6780926e3315c989d61044e4c71e3fee4ad73a2f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 10 Nov 2002 22:46:28 +0000
Subject: ensure "common" is imported to have N()

---
 perl-install/bootlook.pm             | 2 +-
 perl-install/standalone/drakbug      | 2 +-
 perl-install/standalone/drakfloppy   | 1 +
 perl-install/standalone/drakperm     | 4 +---
 perl-install/standalone/draksplash   | 2 +-
 perl-install/standalone/harddrake2   | 1 +
 perl-install/standalone/localedrake  | 1 +
 perl-install/standalone/logdrake     | 2 +-
 perl-install/standalone/printerdrake | 1 +
 9 files changed, 9 insertions(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 1b8707826..b49cfe924 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -20,7 +20,7 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 
-use MDK::Common;
+use common;
 use Gtk;
 use Gtk::Gdk::Pixbuf;
 use Config;
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;
-- 
cgit v1.2.1