1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 48688a826..2c187dcd1 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -748,7 +748,7 @@ sub wrap_paragraph {
             push @lines, @$lines;
             $width = max($width, $width_);
             $ydec += $height + 1;
-        } else {
+        } elsif (@lines) {
             #- void line
             my $yvoid = $ydec / @lines;
             push @widths, 0;