summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
commit868f8ef6acc35e7f402f082fb8398c22bbd012b5 (patch)
tree97085cdd1bd58872e282d0d5675bec7dd2c1af0f /perl-install/any.pm
parent987b89760dd7090ecf49bd225c634bcf7503d18c (diff)
downloaddrakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.gz
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.bz2
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.xz
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.zip
remove unused variables or rename them with an underscore (eg: $o becomes $_o)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 9e0d58139..26e4343d9 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -56,7 +56,6 @@ sub allocUsers {
sub addUsers {
my ($prefix, $users) = @_;
- my $msec = "$prefix/etc/security/msec";
allocUsers($prefix, $users);
foreach my $u (@$users) {
@@ -278,7 +277,6 @@ You can add some more or change the existing ones."),
$e->{label} = $prefix;
for (my $nb = 0; member($e->{label}, @labels); $nb++) { $e->{label} = "$prefix-$nb" }
}
- my %old_e = %$e;
my $default = my $old_default = $e->{label} eq $b->{default};
my @l;
@@ -358,7 +356,7 @@ sub pack_passwd {
}
sub get_autologin {
- my ($o) = @_;
+ my ($_o) = @_;
my %l = getVarsFromSh("$::prefix/etc/sysconfig/autologin");
my %desktop = getVarsFromSh("$::prefix/etc/sysconfig/desktop");
{ autologin => text2bool($l{AUTOLOGIN}) && $l{USER}, desktop => $desktop{DESKTOP} };
@@ -711,7 +709,7 @@ not cause any damage.", $module_descr)), [ N_("Autoprobe"), N_("Specify options"
}
while (1) {
eval {
- my $w = wait_load_module($in, $category, $module_descr, $module);
+ my $_w = wait_load_module($in, $category, $module_descr, $module);
log::l("user asked for loading module $module (type $category, desc $module_descr)");
modules::load([ $module, @$options ]);
};
@@ -730,7 +728,6 @@ sub ask_users {
my $u if 0; $u ||= {};
- my @shells = map { chomp; $_ } cat_("$prefix/etc/shells");
my @icons = facesnames($prefix);
my %high_security_groups = (
@@ -973,7 +970,6 @@ sub fileshare_config {
if (@wanted == 1) {
$in->ask_okcancel('', N("The package %s needs to be installed. Do you want to install it?", $type2file{$wanted[0]}[1]), 1) or return;
} else {
- my %choices;
my $wanted = $in->ask_many_from_list('', N("You can export using NFS or Samba. Please select which you'd like to use."),
{ list => \@wanted }) or return;
@wanted = @$wanted or return;
@@ -1052,7 +1048,6 @@ sub config_security_user {
sub choose_security_level {
my ($in, $security, $libsafe, $email) = @_;
- my $expert_file = "/etc/security/msec/expert_mode";
my %l = (
0 => N("Welcome To Crackers"),