summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAdam Lebsack <adam@mandriva.com>2000-02-28 07:24:28 +0000
committerAdam Lebsack <adam@mandriva.com>2000-02-28 07:24:28 +0000
commit83f09ce09a198f8dddeb17a2275b1f9e72ee359a (patch)
tree08d6bec4bb4ed822932ab7a0d8797d68a78a5bc4 /perl-install
parentc33af10292a801795b375e63f8dc25bd4540c628 (diff)
downloaddrakx-83f09ce09a198f8dddeb17a2275b1f9e72ee359a.tar
drakx-83f09ce09a198f8dddeb17a2275b1f9e72ee359a.tar.gz
drakx-83f09ce09a198f8dddeb17a2275b1f9e72ee359a.tar.bz2
drakx-83f09ce09a198f8dddeb17a2275b1f9e72ee359a.tar.xz
drakx-83f09ce09a198f8dddeb17a2275b1f9e72ee359a.zip
Added suppor tto format HFS partitions on macs.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index f685c159f..e6dc4ef38 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -73,6 +73,12 @@ sub format_dos($@) {
run_program::run("mkdosfs", devices::make($dev), @options) or die _("%s formatting of %s failed", "dos", $dev);
}
+sub format_hfs($@) {
+ my ($dev, @options) = @_;
+
+ run_program::run("hformat", devices::make($dev), @options) or die _("%s formatting of %s failed", "HFS", $dev);
+}
+
sub format_part($;@) {
my ($part, @options) = @_;
@@ -86,6 +92,8 @@ sub format_part($;@) {
format_dos($part->{device}, @options);
} elsif (isWin($part)) {
format_dos($part->{device}, @options, '-F', 32);
+ } elsif (isHFS($part)) {
+ format_hfs($part->{device}, @options, '-l', "\"Untitled\"");
} elsif (isSwap($part)) {
my $check_blocks = grep { /^-c$/ } @options;
swap::make($part->{device}, $check_blocks);