summaryrefslogtreecommitdiffstats
path: root/perl-install/network.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-29 20:15:36 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-29 20:15:36 +0000
commitd5e061896a35a49a50124949c2882ac9cbe94589 (patch)
tree920e7af830e2aa3a766dba5b7aacdca4a6b50a44 /perl-install/network.pm
parentc05cafad9c601272884cf75ee4e056bfbf4b2917 (diff)
downloaddrakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.gz
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.bz2
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.xz
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.zip
no_comment
Diffstat (limited to 'perl-install/network.pm')
-rw-r--r--perl-install/network.pm15
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 {