From 404a62b915b77f3b726a4db8a09b0c419b259a8a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
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