From 862730c409e8d36320ae1cd1f2684b3af2e2f921 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 Nov 2013 15:08:10 +0100
Subject: fix missing bit in commit e779a9401a2971e0338fdf3e7dffaa60629d3b28

---
 perl-install/diskdrake/hd_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index d98f25cac..5ddc91230 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -326,6 +326,7 @@ sub create_buttons4partitions {
     my $ratio = $totalsectors ? ($width - @parts * $minwidth) / $totalsectors : 1;
     my $i = 1;
     while ($i < 30) {
+	$i++;
 	my $totalwidth = sum(map { $_->{size} * $ratio + $minwidth } @parts);
 	$totalwidth <= $width and last;
 	$ratio /= $totalwidth / $width * 1.1;
-- 
cgit v1.2.1