From 5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Sep 2000 13:30:37 +0000
Subject: no_comment

---
 perl-install/fs.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'perl-install/fs.pm')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 0c07c9994..5b5876415 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -8,12 +8,10 @@ use log;
 use devices;
 use partition_table qw(:types);
 use run_program;
-use nfs;
 use swap;
 use detect_devices;
 use commands;
 use modules;
-use raid;
 use fsedit;
 use loopback;
 
@@ -136,7 +134,8 @@ sub real_format_part {
 }
 sub format_part {
     my ($raid, $part, $prefix) = @_;
-    if (raid::is($part)) {
+    if (isRAID($part)) {
+	require raid;
 	raid::format_part($raid, $part);
     } elsif (isLoopback($part)) {
 	loopback::format_part($part, $prefix);
@@ -187,7 +186,7 @@ sub mount($$$;$) {
 
     if ($fs eq 'nfs') {
 	log::l("calling nfs::mount($dev, $where)");
-	nfs::mount($dev, $where) or die _("nfs mount failed");
+#	nfs::mount($dev, $where) or die _("nfs mount failed");
     } elsif ($fs eq 'smb') {
 	die "no smb yet...";
     } else {
-- 
cgit v1.2.1