summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-03 13:19:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-03 13:19:21 +0000
commitaec1462bd0798bae8a3761f2e2a89c64bac04a17 (patch)
treebfad6d1bfc4372d87d1b63aaea29d0c514753b6d /perl-install
parentc2e88c144dce6c21c5f80f92888a64e751db2c4e (diff)
downloaddrakx-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar
drakx-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar.gz
drakx-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar.bz2
drakx-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar.xz
drakx-aec1462bd0798bae8a3761f2e2a89c64bac04a17.zip
one need run_program::raw() to use options
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 3446e5423..cd78bbe69 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -544,7 +544,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({ timeout => 60 * 60 }, 'mke2fs', '-F', @options, devices::make($dev)) or die N("%s formatting of %s failed", grep { $_ 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", grep { $_ eq '-j' } @options ? "ext3" : "ext2", $dev);
}
sub format_ext3 {
my ($dev, @options) = @_;
@@ -554,23 +554,23 @@ sub format_ext3 {
sub format_reiserfs {
my ($dev, @options) = @_;
#TODO add -h tea
- run_program::run({ timeout => 60 * 60 }, "mkreiserfs", "-ff", @options, devices::make($dev)) or die N("%s formatting of %s failed", "reiserfs", $dev);
+ run_program::raw({ timeout => 60 * 60 }, "mkreiserfs", "-ff", @options, devices::make($dev)) or die N("%s formatting of %s failed", "reiserfs", $dev);
}
sub format_xfs {
my ($dev, @options) = @_;
- run_program::run({ timeout => 60 * 60 }, "mkfs.xfs", "-f", "-q", @options, devices::make($dev)) or die N("%s formatting of %s failed", "xfs", $dev);
+ run_program::raw({ timeout => 60 * 60 }, "mkfs.xfs", "-f", "-q", @options, devices::make($dev)) or die N("%s formatting of %s failed", "xfs", $dev);
}
sub format_jfs {
my ($dev, @options) = @_;
- run_program::run({ timeout => 60 * 60 }, "mkfs.jfs", "-f", @options, devices::make($dev)) or die N("%s formatting of %s failed", "jfs", $dev);
+ run_program::raw({ timeout => 60 * 60 }, "mkfs.jfs", "-f", @options, devices::make($dev)) or die N("%s formatting of %s failed", "jfs", $dev);
}
sub format_dos {
my ($dev, @options) = @_;
- run_program::run({ timeout => 60 * 60 }, "mkdosfs", @options, devices::make($dev)) or die N("%s formatting of %s failed", "dos", $dev);
+ run_program::raw({ timeout => 60 * 60 }, "mkdosfs", @options, devices::make($dev)) or die N("%s formatting of %s failed", "dos", $dev);
}
sub format_hfs {
my ($dev, @options) = @_;
- run_program::run({ timeout => 60 * 60 }, "hformat", @options, devices::make($dev)) or die N("%s formatting of %s failed", "HFS", $dev);
+ run_program::raw({ timeout => 60 * 60 }, "hformat", @options, devices::make($dev)) or die N("%s formatting of %s failed", "HFS", $dev);
}
sub real_format_part {
my ($part) = @_;
@@ -699,13 +699,13 @@ sub mount {
$mount_opt = 'notail'; #- notail in any case
} elsif ($fs eq 'jfs' && !$rdonly) {
#- needed if the system is dirty otherwise mounting read-write simply fails
- run_program::run({ timeout => 60 * 60 }, "fsck.jfs", $dev) or do {
+ run_program::raw({ timeout => 60 * 60 }, "fsck.jfs", $dev) or do {
my $err = $?;
die "fsck.jfs failed" if $err & 0xfc00;
};
} elsif ($fs eq 'ext2' || $fs eq 'ext3' && $::isInstall) {
foreach ('-a', '-y') {
- run_program::run({ timeout => 60 * 60 }, "fsck.ext2", $_, $dev);
+ run_program::raw({ timeout => 60 * 60 }, "fsck.ext2", $_, $dev);
my $err = $?;
if ($err & 0x0100) { log::l("fsck corrected partition $dev") }
if ($err & 0xfeff) {