diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-29 20:15:36 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-29 20:15:36 +0000 |
| commit | d5e061896a35a49a50124949c2882ac9cbe94589 (patch) | |
| tree | 920e7af830e2aa3a766dba5b7aacdca4a6b50a44 /perl-install/network.pm | |
| parent | c05cafad9c601272884cf75ee4e056bfbf4b2917 (diff) | |
| download | drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.gz drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.bz2 drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.xz drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.zip | |
no_comment
Diffstat (limited to 'perl-install/network.pm')
| -rw-r--r-- | perl-install/network.pm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/perl-install/network.pm b/perl-install/network.pm index 7dd3f9349..f37012892 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -120,7 +120,12 @@ sub guessHostname { sub addDefaultRoute { my ($netc) = @_; - c::addDefaultRoute($netc->{gateway}) if $netc->{gateway} || !$::testing; + c::addDefaultRoute($netc->{GATEWAY}) if $netc->{GATEWAY}; +} + +sub sethostname { + my ($netc) = @_; + syscall_('sethostname', $netc->{HOSTNAME}, length $netc->{HOSTNAME}) or log::l("sethostname failed: $!"); } sub dnsServers { @@ -129,12 +134,8 @@ sub dnsServers { } sub getNet() { - my @l = detect_devices::getNet(); - unless (@l) { - modules::load_thiskind('net') or return; - @l = detect_devices::getNet(); - } - @l; + modules::load_thiskind('net'); + detect_devices::getNet(); } sub findIntf { |