From 870d622c6e3ed5d9a81c84e3f3d0fc287733472f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 9 Oct 1999 12:46:28 +0000
Subject: no_comment

---
 perl-install/partition_table_raw.pm | 11 -----------
 1 file changed, 11 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 7cb61a371..6a098af5a 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -114,15 +114,4 @@ sub zero_MBR($) {
     delete $hd->{extended};
 }
 
-
-sub isFatFormatted($) {
-    my $dev = devices::make($_[0]);
-    local *F; sysopen F, $dev, 0 or return;
-    sysseek F, $common::SECTORSIZE - length($magic), 0;
-
-    #- check magic number
-    my $tmp;
-    sysread(F, $tmp, length $magic) && $tmp eq $magic;
-}
-
 1;
-- 
cgit v1.2.1