summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 12:56:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 12:56:28 +0000
commit61e9dee449abcafbca19bcfc07b1242fb836c471 (patch)
tree0ff5fb75826b4448539d8e601e390aeabde4eec6 /perl-install/diskdrake/interactive.pm
parent7793c34be4c62fe10518191ad720a7731a01a0f1 (diff)
downloaddrakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.gz
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.bz2
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.xz
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.zip
add some ";", remove some ";", as told by perl_checker
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
-rw-r--r--perl-install/diskdrake/interactive.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index cbf1370ec..3cc33dd90 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -320,7 +320,7 @@ sub Clear_all {
RemoveFromRAID($in, $hd, $_, $all_hds) if isPartOfRAID($_);
}
if (isLVM($hd)) {
- lvm::lv_delete($hd, $_) foreach @parts
+ lvm::lv_delete($hd, $_) foreach @parts;
} else {
$hd->{readonly} = 0; #- give a way out of readonly-ness. only allowed when getting_rid_of_readonly_allowed
$hd->{getting_rid_of_readonly_allowed} = 0;
@@ -923,7 +923,7 @@ sub Options {
[
(map {
{ label => $_, text => scalar warp_text(formatAlaTeX($help{$_})), val => \$options->{$_}, hidden => scalar(/password/),
- advanced => !$part->{rootDevice} && !member($_, @simple_options), if_(!/=$/, type => 'bool'), }
+ advanced => !$part->{rootDevice} && !member($_, @simple_options), if_(!/=$/, type => 'bool') };
} keys %$options),
{ label => N("Various"), val => \$unknown, advanced => 1 },
],
@@ -1263,7 +1263,7 @@ sub choose_encrypt_key {
complete => sub {
length $encrypt_key < 6 and $in->ask_warn('', N("This encryption key is too simple (must be at least %d characters long)", 6)), return 1,0;
$encrypt_key eq $encrypt_key2 or $in->ask_warn('', [ N("The encryption keys do not match"), N("Please try again") ]), return 1,1;
- return 0
+ return 0;
} } }, [
{ label => N("Encryption key"), val => \$encrypt_key, hidden => 1 },
{ label => N("Encryption key (again)"), val => \$encrypt_key2, hidden => 1 },