From d6f5330ee63311a3e5c8ef52693ac7193ea83ede Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 May 2003 16:10:03 +0000
Subject: perl_checker fixes

---
 perl-install/network/modem.pm   | 7 ++-----
 perl-install/network/network.pm | 2 +-
 2 files changed, 3 insertions(+), 6 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index bbc9a7c4e..ca7b0a53b 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -221,11 +221,8 @@ sub ppp_choose {
 						 \&mouse::serial_port2text,
 						 [ grep { $_ ne $o_mouse->{device} } (if_(-e '/dev/modem', '/dev/modem'), mouse::serial_ports()) ]) || return;
 
-    my @cnx_list;
-    my $secret = network::tools::read_secret_backend();
-    foreach (@$secret) {
-	push @cnx_list, $_->{server};
-    }
+    #my $secret = network::tools::read_secret_backend();
+    #my @cnx_list = map { $_->{server} } @$secret;
     $in->ask_from('', N("Dialup options"), [
 					    { label => N("Connection name"), val => \$modem->{connection} },
 					    { label => N("Phone number"), val => \$modem->{phone} },
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index d31b88c0d..b89cb3a9e 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -465,7 +465,7 @@ sub miscellaneous_choose {
 
 sub proxy_configure {
     my ($u) = @_;
-    setExportedVarsInSh( "$::prefix/etc/profile.d/proxy.sh",  $u, qw(http_proxy ftp_proxy));
+    setExportedVarsInSh("$::prefix/etc/profile.d/proxy.sh",  $u, qw(http_proxy ftp_proxy));
     setExportedVarsInCsh("$::prefix/etc/profile.d/proxy.csh", $u, qw(http_proxy ftp_proxy));
 }
 
-- 
cgit v1.2.1