summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-11 11:15:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-11 11:15:34 +0000
commit45348c1b65f0182564c39f097e062c5526571886 (patch)
tree3589e9bf8f16f8fc5095f946f9f4e0ce7c86de19 /perl-install
parent6ea8fa25e7309054300bb71f2dd799f0ed9dd728 (diff)
downloaddrakx-backup-do-not-use-45348c1b65f0182564c39f097e062c5526571886.tar
drakx-backup-do-not-use-45348c1b65f0182564c39f097e062c5526571886.tar.gz
drakx-backup-do-not-use-45348c1b65f0182564c39f097e062c5526571886.tar.bz2
drakx-backup-do-not-use-45348c1b65f0182564c39f097e062c5526571886.tar.xz
drakx-backup-do-not-use-45348c1b65f0182564c39f097e062c5526571886.zip
cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm28
1 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index a256fcb2c..766ca9b6c 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -569,23 +569,23 @@ sub auto_allocate_raids {
my ($all_hds, $suggestions) = @_;
my @raids = grep { isRawRAID($_) } get_all_fstab($all_hds) or return;
- if (@raids) {
- require raid;
- my @mds = grep { $_->{hd} =~ /md/ } @$suggestions;
- foreach my $md (@mds) {
- my @raids_ = grep { !$md->{parts} || $md->{parts} =~ /\Q$_->{mntpoint}/ } @raids;
- @raids = difference2(\@raids, \@raids_);
- my $nb = raid::new($all_hds->{raids}, @raids_);
- my $part = $all_hds->{raids}[$nb];
-
- my %h = %$md;
- delete @h{'hd', 'parts'};
- put_in_hash($part, \%h); # mntpoint, level, chunk-size, type
- raid::updateSize($part);
- }
+
+ require raid;
+ my @mds = grep { $_->{hd} =~ /md/ } @$suggestions;
+ foreach my $md (@mds) {
+ my @raids_ = grep { !$md->{parts} || $md->{parts} =~ /\Q$_->{mntpoint}/ } @raids;
+ @raids = difference2(\@raids, \@raids_);
+ my $nb = raid::new($all_hds->{raids}, @raids_);
+ my $part = $all_hds->{raids}[$nb];
+
+ my %h = %$md;
+ delete @h{'hd', 'parts'};
+ put_in_hash($part, \%h); # mntpoint, level, chunk-size, type
+ raid::updateSize($part);
}
}
+
sub undo_prepare {
my ($all_hds) = @_;
require Data::Dumper;