summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm2
-rwxr-xr-xperl-install/standalone/drakbug2
-rwxr-xr-xperl-install/standalone/drakfloppy1
-rwxr-xr-xperl-install/standalone/drakperm4
-rwxr-xr-xperl-install/standalone/draksplash2
-rwxr-xr-xperl-install/standalone/harddrake21
-rw-r--r--perl-install/standalone/localedrake1
-rwxr-xr-xperl-install/standalone/logdrake2
-rwxr-xr-xperl-install/standalone/printerdrake1
9 files changed, 9 insertions, 7 deletions
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;