From e1fb1756286b5da5c3e8f89f41de02292f86ddea Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Jun 2005 08:36:14 +0000 Subject: remove unused code --- perl-install/standalone/drakperm | 1 - perl-install/standalone/logdrake | 1 - 2 files changed, 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 2b0ee0900..33424343a 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -10,7 +10,6 @@ use ugtk2 qw(:helpers :wrappers :create); $ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakperm-mdk.png"; require_root_capability(); -local $_ = join '', @ARGV; #- vars declaration my ($level) = chomp_(`cat /etc/sysconfig/msec | grep SECURE_LEVEL= |cut -d= -f2`); diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 6a188a04d..586df98e7 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -27,7 +27,6 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla use common; use interactive; use ugtk2 qw(:create :dialogs :helpers :wrappers); -use vars qw(*F); $ugtk2::wm_icon = "/usr/share/mcc/themes/default/logdrake-mdk.png"; my $in = 'interactive'->vnew('su'); -- cgit v1.2.1