diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 12:56:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 12:56:28 +0000 |
| commit | 61e9dee449abcafbca19bcfc07b1242fb836c471 (patch) | |
| tree | 0ff5fb75826b4448539d8e601e390aeabde4eec6 /perl-install/install_steps_interactive.pm | |
| parent | 7793c34be4c62fe10518191ad720a7731a01a0f1 (diff) | |
| download | drakx-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/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 10 |
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 }, |