summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-16 23:03:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-16 23:03:08 +0000
commit12ebbae40ca3705d55c7251a786aacacfb1ed165 (patch)
tree48c17f49f5c1ac53baf24e93eb15b71f094fd24e /perl-install/standalone/drakconnect
parent7827b38a5d474b21e7f03b42ceee3d3edc70984f (diff)
downloaddrakx-12ebbae40ca3705d55c7251a786aacacfb1ed165.tar
drakx-12ebbae40ca3705d55c7251a786aacacfb1ed165.tar.gz
drakx-12ebbae40ca3705d55c7251a786aacacfb1ed165.tar.bz2
drakx-12ebbae40ca3705d55c7251a786aacacfb1ed165.tar.xz
drakx-12ebbae40ca3705d55c7251a786aacacfb1ed165.zip
kill unused variables
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 99e451891..b4c4e366c 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -42,10 +42,8 @@ use network::adsl;
use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_prog $connect_file);
use POSIX ":sys_wait_h";
-my $xpm_path = "/usr/share/libDrakX/pixmaps";
-
my ($netcnx, $netc, $intf) = ({}, {}, {});
-my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'lan');
+#my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'lan');
my $in = 'interactive'->vnew('su');
if ($in->isa('interactive::gtk')) {
@@ -90,7 +88,7 @@ $window1->{rwindow}->set_border_width(10);
my $warning_label1;
-my ($lan_button, $wiz_button, $int_button, $host_button, $button_apply);
+my ($lan_button, $host_button, $button_apply);
my $hostname = chomp_(`hostname`);
@@ -129,7 +127,7 @@ $list->signal_connect(button_press_event => sub {
update_list();
-my ($label_host, $int_state, $button_expert);
+my ($label_host, $int_state);
$window1->{window}->add(