From d30b7900210ca8102072be74bed4915221f47670 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 27 Sep 2004 12:54:42 +0000 Subject: don't scramble $netcnx->{type} --- perl-install/network/netconnect.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 16dbd0458..747614ba2 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -187,8 +187,8 @@ sub real_main { }; my $after_start_on_boot_step = sub { - if ($netc->{internet_cnx_choice}) { - $netcnx->{type} = $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{type} if $netc->{internet_cnx_choice}; + if ($netc->{internet_cnx_choice} && exists $netc->{internet_cnx}{$netc->{internet_cnx_choice}}) { + $netcnx->{type} = $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{type}; } else { undef $netc->{NET_DEVICE}; } -- cgit v1.2.1