From 578dc4f6c9e3f302ad839fa011bdf4bf85a5ef9b Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 4 Jul 2001 23:20:35 +0000 Subject: modularized. It compiles, runs, and works for some stuff. --- perl-install/network/ethernet.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/network/ethernet.pm') 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"); -- cgit v1.2.1