summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-24 22:57:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-24 22:57:09 +0000
commitcfd1f7291b42cede75112ed811053612fa1f2c1c (patch)
tree584f426fdb8653a416c893c0c8afbf9b4a97f7bb /perl-install
parent391e4f3693e6bdaaf571cb4899c92331fba35015 (diff)
downloaddrakx-backup-do-not-use-cfd1f7291b42cede75112ed811053612fa1f2c1c.tar
drakx-backup-do-not-use-cfd1f7291b42cede75112ed811053612fa1f2c1c.tar.gz
drakx-backup-do-not-use-cfd1f7291b42cede75112ed811053612fa1f2c1c.tar.bz2
drakx-backup-do-not-use-cfd1f7291b42cede75112ed811053612fa1f2c1c.tar.xz
drakx-backup-do-not-use-cfd1f7291b42cede75112ed811053612fa1f2c1c.zip
- globals is now MDK::Common::Globals
- perl2fcalls is now /usr/bin/perl_checker
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm2
-rw-r--r--perl-install/network/ethernet.pm2
-rw-r--r--perl-install/network/isdn.pm2
-rw-r--r--perl-install/network/modem.pm2
-rw-r--r--perl-install/network/netconnect.pm4
-rw-r--r--perl-install/network/tools.pm2
6 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 65108f288..5f3dd5db1 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -6,7 +6,7 @@ use network::tools;
use network::ethernet;
use vars qw(@ISA @EXPORT);
-use globals "network", qw($in $prefix $install $connect_file $disconnect_file);
+use MDK::Common::Globals "network", qw($in $prefix $install $connect_file $disconnect_file);
@ISA = qw(Exporter);
@EXPORT = qw(adsl_ask_info adsl_detect adsl_conf adsl_conf_backend);
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index df257637b..e61cf907f 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -7,7 +7,7 @@ use detect_devices;
use common;
use run_program;
use vars qw(@ISA @EXPORT);
-use globals "network", qw($in $prefix $install $connect_file $disconnect_file);
+use MDK::Common::Globals "network", qw($in $prefix $install $connect_file $disconnect_file);
@ISA = qw(Exporter);
@EXPORT = qw(configureNetwork conf_network_card conf_network_card_backend go_ethernet);
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 500339810..03bbabcfc 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -7,7 +7,7 @@ use modules;
use log;
use network::tools;
use vars qw(@ISA @EXPORT);
-use globals "network", qw($in $prefix $install; $connect_file $disconnect_file);
+use MDK::Common::Globals "network", qw($in $prefix $install; $connect_file $disconnect_file);
@ISA = qw(Exporter);
@EXPORT = qw(isdn_write_config isdn_write_config_backend get_info_providers_backend isdn_ask_info isdn_ask_protocol isdn_ask isdn_detect isdn_detect_backend isdn_get_list isdn_get_info);
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 5ff94d014..fea6d0903 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -7,7 +7,7 @@ use detect_devices;
use mouse;
use network::tools;
use vars qw(@ISA @EXPORT);
-use globals "network", qw($in $prefix $install $connect_file $disconnect_file);
+use MDK::Common::Globals "network", qw($in $prefix $install $connect_file $disconnect_file);
@ISA = qw(Exporter);
@EXPORT = qw(pppConfig modem_detect_backend);
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 308f90577..9d83fb934 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -17,7 +17,7 @@ use commands;
#require Data::Dumper;
use network::tools;
-use globals "network", qw($in $prefix $install $connect_file $disconnect_file $connect_prog);
+use MDK::Common::Globals "network", qw($in $prefix $install $connect_file $disconnect_file $connect_prog);
#- intro is called only in standalone.
@@ -84,7 +84,7 @@ sub detect {
sub main {
my ($prefix, $netcnx, $netc, $mouse, $in, $intf, $install, $first_time, $direct_fr) = @_;
- globals::init(
+ MDK::Common::Globals::init(
in => $in,
prefix => $prefix,
install => $install,
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index daf2c0a02..6cf4f8f3a 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -3,7 +3,7 @@ package network::tools;
use common;
use run_program;
use vars qw(@ISA @EXPORT);
-use globals "network", qw($in $prefix $install $disconnect_file $connect_prog);
+use MDK::Common::Globals "network", qw($in $prefix $install $disconnect_file $connect_prog);
@ISA = qw(Exporter);
@EXPORT = qw(write_secret_backend ask_connect_now connect_backend disconnect_backend read_providers_backend ask_info2 connected disconnected);