fix a crash after "insufficient space" error

create_display_box gets called twice. The first time, only the $kind
parameter has a value, the second time all the parameters (including
$button) have values.

On the first time through the partitioning step, the second call to
create_display_box sets the selected_for_resize flag for my NTFS
partition. When returning to the partitioning step, this flag is still
set, so the first call to create_display_box executes the block of code
that ends with

  $button->signal_connect('focus-in-event' => sub { ... });

even though it doesn't have a value for $button.
(Martin Whitaker, mga#15919)

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 4a9078966..f3b997377 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -335,7 +335,7 @@ sub create_display_box {
 	my @colorized_fs_types = qw(ext2 ext3 ext4 xfs swap vfat ntfs ntfs-3g);
         my $part_widget = Gtk3::EventBox->new;
         $entry->{width} = int($entry->{size} * $initial_ratio) + $minwidth;
-        if ($entry->{selected_for_resize}) {
+        if ($resize && $entry->{selected_for_resize}) {
             my $ratio;
             my $update_ratio = sub { $ratio = $entry->{width} / $entry->{size} };
             $update_ratio->();