summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_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/install_steps_interactive.pm
parent7793c34be4c62fe10518191ad720a7731a01a0f1 (diff)
downloaddrakx-61e9dee449abcafbca19bcfc07b1242fb836c471.tar
drakx-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.gz
drakx-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.bz2
drakx-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.xz
drakx-61e9dee449abcafbca19bcfc07b1242fb836c471.zip
add some ";", remove some ";", as told by perl_checker
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index ac959d875..10f8695a8 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -96,7 +96,7 @@ sub acceptLicense {
if ($::globetrotter) {
system("killall XFree86");
exec("/sbin/reboot");
- };
+ }
install_any::ejectCdrom();
$o->exit;
};
@@ -334,7 +334,7 @@ sub choosePartitionsToFormat {
my @l = grep { !$_->{isMounted} && $_->{mntpoint} &&
(!isSwap($_) || $::expert) &&
(!isFat_or_NTFS($_) || $_->{notFormatted} || $::expert) &&
- (!isOtherAvailableFS($_) || $::expert || $_->{toFormat})
+ (!isOtherAvailableFS($_) || $::expert || $_->{toFormat});
} @$fstab;
$_->{toFormat} = 1 foreach grep { isSwap($_) && !$::expert } @$fstab;
@@ -653,7 +653,7 @@ sub reallyChooseGroups {
disabled => sub { $all },
text => translate($_->{label}),
help => translate($_->{descr}),
- }
+ };
} @$compssUsers),
if_($o->{meta_class} eq 'desktop', { text => N("All"), val => \$all, type => 'bool' }),
if_($individual, { text => N("Individual package selection"), val => $individual, advanced => 1, type => 'bool' }),
@@ -1137,7 +1137,7 @@ sub summary {
label => N("Bootloader"),
val => sub {
#-PO: example: lilo-graphic on /dev/hda1
- N("%s on %s", $o->{bootloader}{method}, $o->{bootloader}{boot})
+ N("%s on %s", $o->{bootloader}{method}, $o->{bootloader}{boot});
},
clicked => sub {
any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security});
@@ -1228,7 +1228,7 @@ sub setRootPassword {
$sup->{password} eq $sup->{password2} or $o->ask_warn('', [ N("The passwords do not match"), N("Please try again") ]), return 1,0;
length $sup->{password} < 2 * $o->{security}
and $o->ask_warn('', N("This password is too short (it must be at least %d characters long)", 2 * $o->{security})), return 1,0;
- return 0
+ return 0;
} } }, [
{ label => N("Password"), val => \$sup->{password}, hidden => 1 },
{ label => N("Password (again)"), val => \$sup->{password2}, hidden => 1 },