diff options
| author | Adam Lebsack <adam@mandriva.com> | 2000-02-28 07:24:28 +0000 |
|---|---|---|
| committer | Adam Lebsack <adam@mandriva.com> | 2000-02-28 07:24:28 +0000 |
| commit | 83f09ce09a198f8dddeb17a2275b1f9e72ee359a (patch) | |
| tree | 08d6bec4bb4ed822932ab7a0d8797d68a78a5bc4 /perl-install | |
| parent | c33af10292a801795b375e63f8dc25bd4540c628 (diff) | |
| download | drakx-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.pm | 8 |
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); |