diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-03 13:19:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-03 13:19:21 +0000 |
| commit | aec1462bd0798bae8a3761f2e2a89c64bac04a17 (patch) | |
| tree | bfad6d1bfc4372d87d1b63aaea29d0c514753b6d /perl-install | |
| parent | c2e88c144dce6c21c5f80f92888a64e751db2c4e (diff) | |
| download | drakx-backup-do-not-use-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar drakx-backup-do-not-use-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar.gz drakx-backup-do-not-use-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar.bz2 drakx-backup-do-not-use-aec1462bd0798bae8a3761f2e2a89c64bac04a17.tar.xz drakx-backup-do-not-use-aec1462bd0798bae8a3761f2e2a89c64bac04a17.zip | |
one need run_program::raw() to use options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs.pm | 16 |
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) { |