From 4781e491c32fdfe0dbe3cf97a8aca90040a9406b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Apr 2003 11:34:32 +0000
Subject: new perl_checker compliance

---
 perl-install/partition_table/dos.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/partition_table/dos.pm')

diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index e448ad841..cb687e6b0 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -35,7 +35,8 @@ sub compute_CHS($$) {
 }
 
 sub CHS2rawCHS {
-    my ($hd, $c, $h, $s) = @_;
+    my ($hd, $chs) = @_;
+    my ($c, $h, $s) = @$chs;
     if ($c > 1023) {
 	#- no way to have a #cylinder >= 1024
 	$c = 1023;
@@ -51,7 +52,7 @@ sub sector2CHS {
     my ($s, $h);
     ($start, $s) = divide($start, $hd->{geom}{sectors});
     ($start, $h) = divide($start, $hd->{geom}{heads});
-    ($start, $h, $s + 1);
+    [ $start, $h, $s + 1 ];
 }
 
 sub read {
-- 
cgit v1.2.1