summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-22 14:20:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-22 14:20:36 +0000
commitecc684a0eb131b59f5afd6f67c63cdeec8b015bd (patch)
tree552a2b9a90ba083db5d63accb83ffd763778da3c /perl-install
parent6978bda277b68f265461b347dcf55bb8140905da (diff)
downloaddrakx-ecc684a0eb131b59f5afd6f67c63cdeec8b015bd.tar
drakx-ecc684a0eb131b59f5afd6f67c63cdeec8b015bd.tar.gz
drakx-ecc684a0eb131b59f5afd6f67c63cdeec8b015bd.tar.bz2
drakx-ecc684a0eb131b59f5afd6f67c63cdeec8b015bd.tar.xz
drakx-ecc684a0eb131b59f5afd6f67c63cdeec8b015bd.zip
fix error message
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 8f7b45809..e75e855db 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -560,7 +560,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::raw({ timeout => 60 * 60 }, 'mke2fs', '-F', @options, devices::make($dev)) or die \N("%s formatting of %s failed", any { $_ eq '-j' } @options ? "ext3" : "ext2", $dev);
+ run_program::raw({ timeout => 60 * 60 }, 'mke2fs', '-F', @options, devices::make($dev)) or die \N("%s formatting of %s failed", (any { $_ eq '-j' } @options) ? "ext3" : "ext2", $dev);
}
sub format_ext3 {
my ($dev, @options) = @_;