summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-03-08 16:12:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-03-08 16:12:20 +0000
commitc6233932d37a647c8ed2a00bcab547b5a39c5a68 (patch)
treed2971f269ec6e1664b5a099f0b26c3f26d48816e /perl-install
parent2843edb04f7d7616ba793ad26b07d51983dd0d60 (diff)
downloaddrakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar
drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar.gz
drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar.bz2
drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar.xz
drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.zip
fix typo
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index be0c9e84c..4d4799be5 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -906,7 +906,8 @@ sub generate_automatic_stage1_params {
if ($ENV{PROXY}) {
push @ks, proxy_host => $ENV{PROXY}, proxy_port => $ENV{PROXYPORT};
}
- push @ks, interface => first(values %{$o->{intf}})->{DEVICE};
+ my ($intf) = values %{$o->{intf}};
+ push @ks, interface => $intf->{DEVICE};
if ($intf->{BOOTPROTO} eq 'dhcp') {
push @ks, network => 'dhcp';
} else {