From 84b6811ea2832b93d9737f5ffbb1f28b3333a14e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 11 Dec 2003 15:57:19 +0000
Subject: perl_checker fix

---
 perl-install/standalone/drakconnect | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 1b0ef84f3..3e582d997 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -49,7 +49,11 @@ my ($netcnx, $netc, $intf)  = ({}, {}, {});
 my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'lan');
 
 my $in = 'interactive'->vnew('su');
-!$::isEmbedded and $in->isa('interactive::gtk');
+if ($in->isa('interactive::gtk')) {
+    require ugtk2;
+    ugtk2->import(qw(:create :dialogs :helpers :wrappers));
+    reread_net_conf();
+}
 $::Wizard_pix_up = "wiz_drakconnect.png";
 
 MDK::Common::Globals::init(
@@ -64,24 +68,14 @@ MDK::Common::Globals::init(
 /--skip-wizard/ and goto manage;
 /--add/ and add_intf();
 /--del/ and del_intf();
-/--internet/ and do {
-    init();
-    configure_net($netcnx, $netc, $intf);
-};
+/--internet/ and configure_net($netcnx, $netc, $intf);
 
 # default is to run wizard
 add_intf();
 
 my @all_cards;
 
-sub init() {
-    require ugtk2;
-    ugtk2->import(qw(:create :dialogs :helpers :wrappers));
-    reread_net_conf();
-}
-
 manage:
-init();
 my $window1 = ugtk2->new('drakconnect');
 $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
 unless ($::isEmbedded) {
-- 
cgit v1.2.1