From 0f48e147d39575f98db29f7e21d5347e6e309d04 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 8 Oct 1999 11:42:45 +0000
Subject: no_comment

---
 perl-install/partition_table_raw.pm | 17 +++--------------
 1 file changed, 3 insertions(+), 14 deletions(-)

(limited to 'perl-install/partition_table_raw.pm')

diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index d10d66fc3..7cb61a371 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -3,7 +3,7 @@ package partition_table_raw;
 use diagnostics;
 use strict;
 
-use common qw(:common :system);
+use common qw(:common :system :file);
 use devices;
 use c;
 
@@ -20,6 +20,8 @@ my @MBR_signatures = (
     [ 'dos',  0xa0, "\x25\x03\x4E\x02\xCD\x13" ],
 );
 
+sub typeOfMBR($) { typeFromMagic(devices::make($_[0]), @MBR_signatures) }
+
 sub compute_CHS($$) {
     my ($hd, $e) = @_;
     my @l = qw(cyl head sec);
@@ -112,19 +114,6 @@ sub zero_MBR($) {
     delete $hd->{extended};
 }
 
-sub typeOfMBR($) {
-    my $dev = devices::make($_[0]);
-    local *F; sysopen F, $dev, 0 or return;
-
-    my $tmp;
-    foreach (@MBR_signatures) {
-	my ($name, $offset, $signature) = @$_;
-	sysseek(F, $offset, 0) or next;
-	sysread(F, $tmp, length $signature);
-	$tmp eq $signature and return $name;
-    }
-    undef;
-}
 
 sub isFatFormatted($) {
     my $dev = devices::make($_[0]);
-- 
cgit v1.2.1