summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-12 04:20:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-12 04:20:25 +0000
commit316958489df732fe691202e662204f549694f107 (patch)
tree9f14406901b8014d70ac4377aab02ae0edad210c /perl-install/resize_fat
parent48cb9679bbb7fcb28d9d478a3a42208e88e6d9e3 (diff)
downloaddrakx-backup-do-not-use-316958489df732fe691202e662204f549694f107.tar
drakx-backup-do-not-use-316958489df732fe691202e662204f549694f107.tar.gz
drakx-backup-do-not-use-316958489df732fe691202e662204f549694f107.tar.bz2
drakx-backup-do-not-use-316958489df732fe691202e662204f549694f107.tar.xz
drakx-backup-do-not-use-316958489df732fe691202e662204f549694f107.zip
remove check_mounted(), it is done by diskdrake
Diffstat (limited to 'perl-install/resize_fat')
-rw-r--r--perl-install/resize_fat/io.pm11
1 files changed, 0 insertions, 11 deletions
diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm
index f4caee626..020cb61f5 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -50,20 +50,9 @@ sub read_file($$) {
$buf;
}
-sub check_mounted($) {
- my ($f) = @_;
-
- open(my $F, "/proc/mounts") or die "error opening /proc/mounts\n";
- foreach (<$F>) {
- /^$f\s/ and die "device is mounted";
- }
-}
-
sub open {
my ($fs) = @_;
- check_mounted($fs->{device});
-
sysopen $fs->{fd}, $fs->{fs_name}, 2 or
sysopen $fs->{fd}, $fs->{fs_name}, 0 or die "error opening device $fs->{fs_name} for writing\n";
}