From d30b7900210ca8102072be74bed4915221f47670 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
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