From 138c4c239b44f0730a4593a655fbdbc4f5b5ce9e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 13 Feb 2003 11:37:41 +0000
Subject: make perl_checker happy

---
 perl-install/commands            | 2 +-
 perl-install/standalone/drakboot | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/perl-install/commands b/perl-install/commands
index baa02f232..c37a180c7 100755
--- a/perl-install/commands
+++ b/perl-install/commands
@@ -12,4 +12,4 @@ my $progname = basename($0);
 # hack as some functions are defined by perl... so chmod -> chmod_
 &{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0;
 
-sub err { die "$0: unknown program (unimplemented)\n"; }
+sub err { die "$0: unknown program (unimplemented)\n" }
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 7054ed5db..5abdff7f3 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -27,8 +27,7 @@ if ($in->isa('interactive::gtk')) {
 kill('USR1', $::CCPID);
 goto ask;
 
-sub lilo_choice
-{
+sub lilo_choice {
     my $bootloader = bootloader::read(); 
     local ($_) = `detectloader`;
     $bootloader->{methods} = { lilo => 1, grub => !!/grub/i, if_(arch() =~ /ppc/, yaboot => 1) };
-- 
cgit v1.2.1