From f86db925851c46fbc3834035a660237005b07d5a Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 28 Oct 2009 14:54:20 +0000
Subject: use last resizable fat partition in gtk mode

---
 perl-install/fs/partitioning_wizard.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index ad54cb1be..3d8557e5d 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -159,7 +159,7 @@ sub partitionWizardSolutions {
                                                                interactive_help_id => 'resizeFATChoose',
                                                              }, \&partition_table::description, \@ok_for_resize_fat) or return;
                       } else {
-                          ($part) = grep { $_->{req_size} } @ok_for_resize_fat;
+                          $part = top(grep { $_->{req_size} } @ok_for_resize_fat);
                       }
                       my $resize_fat = $part->{resize_fat};
                       my $hd = fs::get::part2hd($part, $all_hds);
-- 
cgit v1.2.1