From f4114e035ae23d51b55dc040811b58db1e6cb1ad Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Feb 2003 14:18:55 +0000
Subject: fix ugly bug (the bug was introduced in diskdrake/interactive.pm
 1.67)

---
 perl-install/diskdrake/interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 86772c108..7f25095ae 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -763,7 +763,7 @@ sub Mount {
     my ($in, $hd, $part) = @_;
     write_partitions($in, $hd) or return;
     my $w;
-    fs::mount_part($part, sub {
+    fs::mount_part($part, $::prefix, 0, sub {
         	my ($msg) = @_;
         	$w ||= $in->wait_message('', $msg);
         	$w->set($msg);
@@ -1061,7 +1061,7 @@ sub format_ {
     ask_alldatawillbelost($in, $part, N_("After formatting partition %s, all data on this partition will be lost")) or return;
     $part->{isFormatted} = 0; #- force format;
     my $w;
-    fs::format_part($all_hds->{raids}, sub {
+    fs::format_part($all_hds->{raids}, $part, $::prefix, sub {
         	my ($msg) = @_;
         	$w ||= $in->wait_message('', $msg);
         	$w->set($msg);
-- 
cgit v1.2.1