diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-02 11:32:22 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-02 11:32:22 +0000 |
commit | 4d0b37afe2eab853201d1df9778b7d0e3932d323 (patch) | |
tree | d815ab25db4faab6a83fdade1b4ae0cce0f09395 /perl-install/fs.pm | |
parent | 45a8f2704e6b1f9760b86c2bb6748c546fb38f32 (diff) | |
download | drakx-backup-do-not-use-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar drakx-backup-do-not-use-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.gz drakx-backup-do-not-use-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.bz2 drakx-backup-do-not-use-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.xz drakx-backup-do-not-use-4d0b37afe2eab853201d1df9778b7d0e3932d323.zip |
add jfs support
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r-- | perl-install/fs.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 36e9f6381..8a2576d40 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -102,6 +102,12 @@ sub format_xfs($@) { run_program::run("mkfs.xfs", "-f", "-q", @options, devices::make($dev)) or die _("%s formatting of %s failed", "xfs", $dev); } +sub format_jfs($@) { + my ($dev, @options) = @_; + + run_program::run("mkfs.jfs", "-f", @options, devices::make($dev)) or die _("%s formatting of %s failed", "jfs", $dev); +} + sub format_dos($@) { my ($dev, @options) = @_; @@ -129,6 +135,8 @@ sub real_format_part { format_reiserfs($part->{device}, @options, if_(c::kernel_version() =~ /^\Q2.2/, "-v", "1")); } elsif (isXfs($part)) { format_xfs($part->{device}, @options); + } elsif (isJfs($part)) { + format_jfs($part->{device}, @options); } elsif (isDos($part)) { format_dos($part->{device}, @options); } elsif (isWin($part)) { @@ -219,6 +227,8 @@ sub mount($$$;$) { eval { modules::load('ufs') }; } elsif ($fs eq 'xfs') { eval { modules::load('xfs') }; + } elsif ($fs eq 'jfs') { + eval { modules::load('jfs') }; } elsif ($fs eq 'reiserfs') { #- could be better if we knew if there is a /boot or not #- without knowing it, / is forced to be mounted with notail |