diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-03-08 16:12:20 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-03-08 16:12:20 +0000 |
commit | c6233932d37a647c8ed2a00bcab547b5a39c5a68 (patch) | |
tree | d2971f269ec6e1664b5a099f0b26c3f26d48816e /perl-install/install_any.pm | |
parent | 2843edb04f7d7616ba793ad26b07d51983dd0d60 (diff) | |
download | drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar.gz drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar.bz2 drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.tar.xz drakx-c6233932d37a647c8ed2a00bcab547b5a39c5a68.zip |
fix typo
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r-- | perl-install/install_any.pm | 3 |
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 { |