From 6780926e3315c989d61044e4c71e3fee4ad73a2f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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