diff options
Diffstat (limited to 'perl-install/install_interactive.pm')
| -rw-r--r-- | perl-install/install_interactive.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 6861e021d..849f224ac 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -129,7 +129,7 @@ sub partitionWizardSolutions { } ]; } else { push @wizlog, N("There is no FAT partition to use as loopback (or not enough space left)") . - @fats ? "\nFAT partitions:" . join('', map { "\n $_->{device} $_->{free} (" . ($min_linux + $min_swap + $min_freewin) . ")" } @fats) : ''; + (@fats ? "\nFAT partitions:" . join('', map { "\n $_->{device} $_->{free} (" . ($min_linux + $min_swap + $min_freewin) . ")" } @fats) : ''); } @@ -178,7 +178,7 @@ When sure, press Ok.")) or return; $hd->adjustEnd($part); eval { - my $w = $o->wait_message(N("Resizing"), N("Resizing Windows partition")); + my $_w = $o->wait_message(N("Resizing"), N("Resizing Windows partition")); $resize_fat->resize($part->{size}); }; if (my $err = $@) { @@ -195,8 +195,7 @@ When sure, press Ok.")) or return; 1; } ]; } else { - push @wizlog, N("There is no FAT partition to resize (or not enough space left)") . - @ok_for_resize_fat ? "\nFAT partitions:" . join('', map { "\n $_->{device} $_->{free} (" . ($min_linux + $min_swap + $min_freewin) . ")" } @ok_for_resize_fat) : ''; + push @wizlog, N("There is no FAT partition to resize (or not enough space left)"); } if (@$fstab && @hds_rw) { |