From e0eba36e58055f0dd177e76ace7f38311846a8e4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 23 Jul 2004 04:14:50 +0000
Subject: remove useless $lan_button and $host_button in old drakconnect

---
 perl-install/standalone/drakconnect | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index cd56fda1f..cc01cfd34 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -88,7 +88,7 @@ $window1->{rwindow}->set_border_width(10);
 
 my $warning_label1;
 
-my ($lan_button, $host_button, $button_apply);
+my $button_apply;
 
 
 my $hostname = chomp_(`hostname`);
@@ -135,27 +135,27 @@ $window1->{window}->add(
                                  0, gtkpack(Gtk2::HBox->new,
                                             Gtk2::Label->new(N("Hostname: ")),
                                             $label_host = Gtk2::Label->new($hostname),
-                                            $host_button = gtksignal_connect(Gtk2::Button->new(N("Configure hostname...")),
-                                                                             clicked => sub {
-                                                                                 local ($::isWizard, $::Wizard_finished) = (1, 1);
-                                                                                 eval { # For wizcancel
-                                                                                     configureNetworkNet($in, $netc, $intf, map { $_->[0] } @all_cards);
-                                                                                     $button_apply->set_sensitive(1);
-                                                                                     update();
-                                                                                 };
-                                                                                 if ($@ =~ /wizcancel/) {}
-                                                                                 $::WizardWindow->destroy;
-                                                                                 undef $::WizardWindow;
-                                                                             }
-                                                                            ),
+                                            gtksignal_connect(Gtk2::Button->new(N("Configure hostname...")),
+                                                              clicked => sub {
+                                                                  local ($::isWizard, $::Wizard_finished) = (1, 1);
+                                                                  eval { # For wizcancel
+                                                                      configureNetworkNet($in, $netc, $intf, map { $_->[0] } @all_cards);
+                                                                      $button_apply->set_sensitive(1);
+                                                                      update();
+                                                                  };
+                                                                  if ($@ =~ /wizcancel/) {}
+                                                                  $::WizardWindow->destroy;
+                                                                  undef $::WizardWindow;
+                                                              }
+                                                             ),
                                            ),
                                  1, gtkadd(gtkcreate_frame(N("LAN configuration")),
                                            gtkpack_(gtkset_border_width(Gtk2::VBox->new(0,0), 5),
                                                     0, $list,
                                                     0, Gtk2::HBox->new(0,0),
                                                     0, gtkpack_(Gtk2::HBox->new(0, 0),
-                                                                0, $lan_button = gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")),
-                                                                                                   clicked => \&configure_lan),
+                                                                0, gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")),
+                                                                                     clicked => \&configure_lan),
                                                                ),
                                                    )
                                           ),
-- 
cgit v1.2.1