From 2ce4f907697332a5f71a397226ee1cfa3940fc69 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 26 Jan 2004 22:44:39 +0000
Subject: reuse values got from provider db

---
 perl-install/network/netconnect.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 971479c7f..531694346 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -566,7 +566,10 @@ killall pppd
                     next => 'adsl_protocol',
                     post => sub {
                         $adsl_data = $adsl_data{$adsl_provider};
-                        $adsl_protocol = $adsl_types{$adsl_data->{method}} if $adsl_provider ne $adsl_old_provider && !defined $adsl_protocol && $adsl_data->{method};
+                        if ($adsl_provider ne $adsl_old_provider) {
+                            $netc->{$_} = $adsl_data->{$_} foreach qw(dnsServer2 dnsServer3 vpi vci);
+                              $adsl_protocol = $adsl_types{$adsl_data->{method}};
+                        }
                         return 'adsl_protocol';
                     },
                    },
-- 
cgit v1.2.1