summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-12 13:01:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-12 13:01:41 +0000
commit9006f99d2dfcb94b0ac7ac340777d0534d344d8e (patch)
treebfc4e8ad7069afcdd97928125c0d3cbd467af5c3 /perl-install
parent8cdbcbe027b2c10254141f4c9460e6c6629b16c8 (diff)
downloaddrakx-9006f99d2dfcb94b0ac7ac340777d0534d344d8e.tar
drakx-9006f99d2dfcb94b0ac7ac340777d0534d344d8e.tar.gz
drakx-9006f99d2dfcb94b0ac7ac340777d0534d344d8e.tar.bz2
drakx-9006f99d2dfcb94b0ac7ac340777d0534d344d8e.tar.xz
drakx-9006f99d2dfcb94b0ac7ac340777d0534d344d8e.zip
(apply) factorize interface hash
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index fdbf20bff..930a76e72 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -688,8 +688,9 @@ sub update_list() {
sub apply {
my ($netc, $intf) = @_;
- network::network::sethostname($netc) if is_dynamic_ip({ $intf });
- network::network::configureNetwork2($in, '', $netc, {$intf->{DEVICE} => $intf });
+ my %intfs = ($intf->{DEVICE} => $intf);
+ network::network::sethostname($netc) if is_dynamic_ip(\%intfs);
+ network::network::configureNetwork2($in, '', $netc, \%intfs);
}
sub ethisup { `LC_ALL=C LANGUAGE=C /sbin/ifconfig $_[0]` =~ /inet/ }