diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-12-17 20:07:40 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-12-17 20:07:40 +0000 |
| commit | 240da119af5f8501ba4ff453b3a5750d2ef23a8d (patch) | |
| tree | 093ddb5b3101181bf7377c3443d118c5fd2bf406 /perl-install/any.pm | |
| parent | 935ff692c93b105369eaf487a0ba752f148b3f59 (diff) | |
| download | drakx-backup-do-not-use-240da119af5f8501ba4ff453b3a5750d2ef23a8d.tar drakx-backup-do-not-use-240da119af5f8501ba4ff453b3a5750d2ef23a8d.tar.gz drakx-backup-do-not-use-240da119af5f8501ba4ff453b3a5750d2ef23a8d.tar.bz2 drakx-backup-do-not-use-240da119af5f8501ba4ff453b3a5750d2ef23a8d.tar.xz drakx-backup-do-not-use-240da119af5f8501ba4ff453b3a5750d2ef23a8d.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 085542204..c2bc318b2 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -147,7 +147,7 @@ sub setupBootloaderBeforeStandalone { } sub setupBootloaderBefore { - my ($do_pkgs, $bootloader, $all_hds, $fstab, $keyboard, $allow_fb, $vga_fb, $quiet) = @_; + my ($_do_pkgs, $bootloader, $all_hds, $fstab, $keyboard, $allow_fb, $vga_fb, $quiet) = @_; require bootloader; #- auto_install backward compatibility @@ -404,7 +404,7 @@ sub get_apple_boot_parts { } sub setupBootloader__general { - my ($in, $b, $all_hds, $fstab, $security) = @_; + my ($in, $b, $all_hds, $fstab, $_security) = @_; return if detect_devices::is_xbox(); my @method_choices = bootloader::method_choices($all_hds); @@ -553,7 +553,7 @@ sub setupBootloader__entries { if_($e->{xen}, { label => N("Xen append"), val => \$e->{xen_append} } ), - if_($b->{password}, { label => N("Requires password to boot"), val => \$e->{lock}, type => "bool"}), + if_($b->{password}, { label => N("Requires password to boot"), val => \$e->{lock}, type => "bool" }), if_(arch() !~ /ppc|ia64/, { label => N("Video mode"), val => \$vga, list => [ '', Xconfig::resolution_and_depth::bios_vga_modes() ], format => \&Xconfig::resolution_and_depth::to_string, advanced => 1 }, ), @@ -640,7 +640,7 @@ sub setupBootloader__entries { my @entries = @{$b->{entries}}; my ($index) = grep { $entries[$_]{label} eq $e->{label} } 0..$#entries; if ($index > 0) { - ($b->{entries}->[$index - 1], $b->{entries}->[$index]) = ($b->{entries}->[$index], $b->{entries}->[$index - 1]); + ($b->{entries}[$index - 1], $b->{entries}[$index]) = ($b->{entries}[$index], $b->{entries}[$index - 1]); } 1; }; @@ -650,7 +650,7 @@ sub setupBootloader__entries { my @entries = @{$b->{entries}}; my ($index) = grep { $entries[$_]{label} eq $e->{label} } 0..$#entries; if ($index < $#entries) { - ($b->{entries}->[$index + 1], $b->{entries}->[$index]) = ($b->{entries}->[$index], $b->{entries}->[$index + 1]); + ($b->{entries}[$index + 1], $b->{entries}[$index]) = ($b->{entries}[$index], $b->{entries}[$index + 1]); } 1; }; |