summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-02 11:32:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-02 11:32:22 +0000
commit4d0b37afe2eab853201d1df9778b7d0e3932d323 (patch)
treed815ab25db4faab6a83fdade1b4ae0cce0f09395 /perl-install/fs.pm
parent45a8f2704e6b1f9760b86c2bb6748c546fb38f32 (diff)
downloaddrakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.gz
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.bz2
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.xz
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.zip
add jfs support
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm10
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