summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_raw.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-09 12:46:28 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-09 12:46:28 +0000
commit870d622c6e3ed5d9a81c84e3f3d0fc287733472f (patch)
tree89cfcbd0e2a57404a13624031072d49060a75bfa /perl-install/partition_table_raw.pm
parentfc479b2a46849ffe42eb17a3162a38e27900fe93 (diff)
downloaddrakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar
drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar.gz
drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar.bz2
drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.tar.xz
drakx-870d622c6e3ed5d9a81c84e3f3d0fc287733472f.zip
no_comment
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;