From 44062e68bc833918fb48685071bc6131a3deebd5 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 13 Sep 2002 19:01:06 +0000
Subject: - fix old conf files name (thx titi)

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

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 4f9fee0ff..75f64bbac 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -591,7 +591,7 @@ sub load_conf {
 sub read_raw_net_conf {
     my ($suffix) = @_;
     my $dir = "$::prefix/etc/sysconfig/network-scripts";
-    $suffix = $suffix ? ".$suffix" : '';
+#    $suffix = $suffix ? ".$suffix" : '';
     rename "$dir/draknet$suffix", "$dir/drakconnect$suffix";
     getVarsFromSh("$dir/drakconnect_conf");
 }
@@ -602,7 +602,7 @@ sub get_net_device {
 
 sub read_net_conf {
     my ($prefix, $netcnx, $netc)=@_;
-    add2hash($netcnx, { read_raw_net_conf() });
+    add2hash($netcnx, { read_raw_net_conf('_conf') });
     $netc->{$_} = $netcnx->{$_} foreach 'NET_DEVICE', 'NET_INTERFACE';
     $netcnx->{$netcnx->{type}}||={};
     add2hash($netcnx->{$netcnx->{type}}, { read_raw_net_conf($netcnx->{type}) });
-- 
cgit v1.2.1