diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-06-28 16:50:39 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-06-28 16:50:39 +0000 |
commit | b6a8fceafd44f7354efc7b7b27db48204e051317 (patch) | |
tree | e579bbc5441d9905f91880e5d68440a70802b2f4 /perl-install/partition_table.pm | |
parent | f02e76ad7ed01ce6f02ed576c13dd74fc69cdef6 (diff) | |
download | drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar.gz drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar.bz2 drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar.xz drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.zip |
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r-- | perl-install/partition_table.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 63a7d632d..0ea3fad13 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -316,7 +316,7 @@ sub adjust_main_extended($) { my $start = round_down($l->{normal}{start} - 1, $hd->{geom}{sectors}); my $end = $l->{normal}{start} + $l->{normal}{size}; my $only_linux = 1; - foreach (map $_->{normal}, @l) { + foreach (map $_->{normal}, $l, @l) { $start = min($start, $_->{start}); $end = max($end, $_->{start} + $_->{size}); $only_linux &&= isTrueFS($_) || isSwap($_); |