diff options
author | damien <damien@mandriva.com> | 2001-07-04 23:20:35 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-07-04 23:20:35 +0000 |
commit | 578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b (patch) | |
tree | 1a6883675e2b92253ccaf1df468a97182a9e3408 /perl-install/network/ethernet.pm | |
parent | 4eff584aa8d9fbe794e2d334824a052d4f69ccf4 (diff) | |
download | drakx-backup-do-not-use-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar drakx-backup-do-not-use-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.gz drakx-backup-do-not-use-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.bz2 drakx-backup-do-not-use-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.tar.xz drakx-backup-do-not-use-578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b.zip |
modularized. It compiles, runs, and works for some stuff.
Diffstat (limited to 'perl-install/network/ethernet.pm')
-rw-r--r-- | perl-install/network/ethernet.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 52b4afd70..f4e81c512 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -7,10 +7,10 @@ use detect_devices; use common qw(:file :common); use run_program; use vars qw(@ISA @EXPORT); -use globals "network", qw($in $prefix $install); +use globals "network", qw($in $prefix $install $connect_file $disconnect_file); @ISA = qw(Exporter); -@EXPORT = qw(conf_network_card conf_network_card_backend go_ethernet); +@EXPORT = qw(configureNetwork conf_network_card conf_network_card_backend go_ethernet); sub configure_cable { my ($netcnx, $netc, $intf, $first_time) = @_; @@ -189,7 +189,6 @@ ifdown $netc->{NET_DEVICE} sub configureNetwork { my ($netc, $intf, $first_time) = @_; - print "plop3 -- $prefix \n"; local $_; any::setup_thiskind($in, 'net', !$::expert, 1); my @l = detect_devices::getNet() or die _("no network card found"); |