From 6d78a473df41106b7108b44466ed2bbd3ed27402 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Thu, 27 May 2004 17:08:37 +0000
Subject: - call remove_initscript because internet service is dropped - drop
 write_initscript call

---
 perl-install/network/netconnect.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index eeba931d0..d61673cf3 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -114,6 +114,7 @@ sub real_main {
                             3 => N("Protocol for the rest of the world\nNo D-Channel (leased lines)"),
                            );
 
+      network::tools::remove_initscript();
 
       init_globals($in);
       $netc->{NET_DEVICE} = $netcnx->{NET_DEVICE} if $netcnx->{NET_DEVICE}; # REDONDANCE with read_conf. FIXME
@@ -184,7 +185,6 @@ sub real_main {
           if ($netc->{internet_cnx_choice}) {
               write_cnx_script($netc);
               $netcnx->{type} = $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{type} if $netc->{internet_cnx_choice};
-              write_initscript();
           } else {
               undef $netc->{NET_DEVICE};
           }
-- 
cgit v1.2.1