summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 13:25:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 13:25:45 +0000
commit459eedd7dc7ef289f379d2fc1dc691a057d1e144 (patch)
treea042f6f973b37076d459c3ec80404f9e4ffaa202 /perl-install/any.pm
parentfb67876005b9f7002d56f96269da9e6fb5d03b0f (diff)
downloaddrakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar
drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.gz
drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.bz2
drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.xz
drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.zip
remove some unneeded ";", add some for normalization (as told by perl_checker)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 771aac480..268a47519 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -84,7 +84,7 @@ sub install_acpi_pkgs {
my $acpi = bootloader::get_append_with_key($b, 'acpi') or return;
if (!member($acpi, 'off', 'ht')) {
- $do_pkgs->install('acpi', 'acpid') if !(-x "$::prefix/usr/bin/acpi" && -x "$::prefix/usr/sbin/acpid")
+ $do_pkgs->install('acpi', 'acpid') if !(-x "$::prefix/usr/bin/acpi" && -x "$::prefix/usr/sbin/acpid");
}
}
@@ -555,7 +555,7 @@ sub inspect {
my $h = before_leaving {
if (!$part->{isMounted} && $dir) {
fs::umount($dir);
- unlink($dir)
+ unlink($dir);
}
};
$h->{dir} = $dir;
@@ -617,7 +617,7 @@ sub ask_user_one {
),
if_($security > 3,
map {
- { label => $_, val => \$groups{$_}, text => $high_security_groups{$_}, type => 'bool' }
+ { label => $_, val => \$groups{$_}, text => $high_security_groups{$_}, type => 'bool' };
} keys %high_security_groups,
),
],
@@ -727,7 +727,7 @@ when your installation is complete and you restart your system.")),
{ val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} },
text => $_->[1], advanced => 1,
image => "langs/lang-$_->[0]",
- }
+ };
} sort { $a->[1] cmp $b->[1] } map { [ $_, $sort_func->($_) ] } lang::list_langs())
]) or return;
$langs->{$listval2val->($lang)} = 1;