summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm10
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;
};