From 333a9d4701a9709791a65e67a6d2fa17fd09100c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 6 Feb 2004 14:42:52 +0000
Subject: please perl_checker

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index d1e706d70..4a83f3c3a 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -133,7 +133,7 @@ sub read_grub() {
 
     $b{nowarn} = 1;
     # handle broken installkernel -r:
-    $b{default} = min($b{default}, scalar(@{$b{entries}}) -1);
+    $b{default} = min($b{default}, scalar(@{$b{entries}}) - 1);
     $b{default} = $b{entries}[$b{default}]{label};
 
     \%b;
-- 
cgit v1.2.1