diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
| commit | 459eedd7dc7ef289f379d2fc1dc691a057d1e144 (patch) | |
| tree | a042f6f973b37076d459c3ec80404f9e4ffaa202 /perl-install/any.pm | |
| parent | fb67876005b9f7002d56f96269da9e6fb5d03b0f (diff) | |
| download | drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.gz drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.bz2 drakx-backup-do-not-use-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.xz drakx-backup-do-not-use-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.pm | 8 |
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; |