From 404a62b915b77f3b726a4db8a09b0c419b259a8a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 17 Dec 2011 20:07:40 +0000 Subject: perl_checker cleanups --- perl-install/any.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install') 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; }; -- cgit v1.2.1