From 83f09ce09a198f8dddeb17a2275b1f9e72ee359a Mon Sep 17 00:00:00 2001
From: Adam Lebsack <adam@mandriva.com>
Date: Mon, 28 Feb 2000 07:24:28 +0000
Subject: Added suppor tto format HFS partitions on macs.

---
 perl-install/fs.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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);
-- 
cgit v1.2.1