From 316958489df732fe691202e662204f549694f107 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 2004 04:20:25 +0000
Subject: remove check_mounted(), it is done by diskdrake

---
 perl-install/resize_fat/io.pm | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'perl-install/resize_fat')

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";
 }
-- 
cgit v1.2.1