From d3c77792d4458c82943d4819e6080344151653a1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 2 Feb 2001 14:02:25 +0000 Subject: using the new formatXiB --- perl-install/partition_table.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/partition_table.pm') diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index e1f7573a5..bd10c2252 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -258,16 +258,16 @@ sub verifyParts_ { next if !$i || !$_ || $i == $_ || isWholedisk($i) || isExtended($i); #- avoid testing twice for simplicity :-) if (isWholedisk($_)) { verifyInside($i, $_) or - cdie sprintf("partition sector #$i->{start} (%dMB) is not inside whole disk (%dMB)!", - $i->{size} >> 11, $_->{size} >> 11); + cdie sprintf("partition sector #$i->{start} (%s) is not inside whole disk (%s)!", + formatXiB($i->{size}, 512), formatXiB($_->{size}, 512)); } elsif (isExtended($_)) { verifyNotOverlap($i, $_) or - log::l(sprintf("warning partition sector #$i->{start} (%dMB) is overlapping with extended partition!", - $i->{size} >> 11)); #- only warning for this one is acceptable + log::l(sprintf("warning partition sector #$i->{start} (%s) is overlapping with extended partition!", + formatXiB($i->{size}, 512))); #- only warning for this one is acceptable } else { verifyNotOverlap($i, $_) or - cdie sprintf("partitions sector #$i->{start} (%dMB) and sector #$_->{start} (%dMB) are overlapping!", - $i->{size} >> 11, $_->{size} >> 11); + cdie sprintf("partitions sector #$i->{start} (%s) and sector #$_->{start} (%s) are overlapping!", + formatXiB($i->{size}, 512), formatXiB($_->{size}, 512)); } } } -- cgit v1.2.1