summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_raw.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table_raw.pm')
-rw-r--r--perl-install/partition_table_raw.pm11
1 files changed, 0 insertions, 11 deletions
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;