summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-29 17:55:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-29 17:55:04 +0000
commit220df80930e312c989795fa6ab0a92bebc9df629 (patch)
tree0b67103e51eb4f98815c7605827f4ce5741ffa14 /perl-install
parent55bafeda94d7a52a1a4984bbb6974d20715520f4 (diff)
downloaddrakx-220df80930e312c989795fa6ab0a92bebc9df629.tar
drakx-220df80930e312c989795fa6ab0a92bebc9df629.tar.gz
drakx-220df80930e312c989795fa6ab0a92bebc9df629.tar.bz2
drakx-220df80930e312c989795fa6ab0a92bebc9df629.tar.xz
drakx-220df80930e312c989795fa6ab0a92bebc9df629.zip
fix mke2fs on loopback
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 00c3f0e65..2cb5c280d 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -548,7 +548,7 @@ sub format_ext2($@) {
my ($dev, @options) = @_;
$dev =~ m,(rd|ida|cciss)/, and push @options, qw(-b 4096 -R stride=16); #- For RAID only.
push @options, qw(-b 1024 -O none) if arch() =~ /alpha/;
- run_program::run("mke2fs", @options, devices::make($dev)) or die _("%s formatting of %s failed", "ext2", $dev);
+ run_program::run('mke2fs', '-F', @options, devices::make($dev)) or die _("%s formatting of %s failed", "ext2", $dev);
}
sub format_ext3 {
my ($dev, @options) = @_;
@@ -611,7 +611,7 @@ sub real_format_part {
my $check_blocks = grep { /^-c$/ } @options;
swap::make($dev, $check_blocks);
} else {
- die _("I don't know how to format %s in type %s", $_->{device}, type2name($_->{type}));
+ die _("I don't know how to format %s in type %s", $part->{device}, type2name($part->{type}));
}
$part->{isFormatted} = 1;
}