diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-18 14:18:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-18 14:18:55 +0000 |
| commit | f4114e035ae23d51b55dc040811b58db1e6cb1ad (patch) | |
| tree | e0678761816dc1516f82c7fa148d7508bdd75287 /perl-install/diskdrake | |
| parent | 9c1b9e17bce32e9e0fc6748ad636339f0c6cb93a (diff) | |
| download | drakx-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/diskdrake')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 4 |
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); |