summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-18 14:18:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-18 14:18:55 +0000
commitf4114e035ae23d51b55dc040811b58db1e6cb1ad (patch)
treee0678761816dc1516f82c7fa148d7508bdd75287 /perl-install
parent9c1b9e17bce32e9e0fc6748ad636339f0c6cb93a (diff)
downloaddrakx-f4114e035ae23d51b55dc040811b58db1e6cb1ad.tar
drakx-f4114e035ae23d51b55dc040811b58db1e6cb1ad.tar.gz
drakx-f4114e035ae23d51b55dc040811b58db1e6cb1ad.tar.bz2
drakx-f4114e035ae23d51b55dc040811b58db1e6cb1ad.tar.xz
drakx-f4114e035ae23d51b55dc040811b58db1e6cb1ad.zip
fix ugly bug (the bug was introduced in diskdrake/interactive.pm 1.67)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm4
1 files changed, 2 insertions, 2 deletions
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);