From d157c06993b22ebc4b82baa360ccc3816646089f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Apr 2000 21:54:16 +0000
Subject: no_comment

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

(limited to 'perl-install/fs.pm')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 43b88e69d..cf6ed3ebf 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -80,6 +80,7 @@ sub format_ext2($@) {
     my ($dev, @options) = @_;
 
     $dev =~ m,(rd|ida)/, and push @options, qw(-b 4096 -R stride=16); #- For RAID only.
+    push @options, qw(-b 1024 -O none) if arch() =~ /alpha/;
 
     run_program::run("mke2fs", @options, devices::make($dev)) or die _("%s formatting of %s failed", "ext2", $dev);
 }
@@ -367,6 +368,12 @@ sub write_fstab($;$$) {
     print F join(" ", @$_), "\n" foreach sort { $a->[1] cmp $b->[1] } @to_add;
 }
 
+sub merge_fstabs {
+    my ($fstab, $manualFstab) = @_;
+    my %l; $l{$_->{device}} = $_ foreach @$manualFstab;
+    add2hash_($_, $l{$_->{device}} || next) foreach @$fstab;
+}
+
 #sub check_mount_all_fstab($;$) {
 #    my ($fstab, $prefix) = @_;
 #    $prefix ||= '';
-- 
cgit v1.2.1