From e6c756c60b445cc836c91b44ef4858eb1e1ecc50 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 28 Oct 2009 17:26:06 +0000 Subject: simplify --- perl-install/fs/partitioning_wizard.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/fs') diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index d9139066f..7b7550e62 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -304,9 +304,8 @@ sub create_display_box { my $part_sep; my $desc; - my $last; + my $last = $resize && $resize->[-1]; - $last = $resize->[-1] if $resize; foreach my $entry (@parts) { my $part_info = Gtk2::Label->new($entry->{device_LABEL}); my @colorized_fs_types = qw(ext2 ext3 ext4 xfs swap vfat ntfs ntfs-3g); -- cgit v1.2.1