From c6233932d37a647c8ed2a00bcab547b5a39c5a68 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Mar 2004 16:12:20 +0000
Subject: fix typo

---
 perl-install/install_any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

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 {
-- 
cgit v1.2.1