summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-31 01:23:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-31 01:23:17 +0000
commitfccdd76453dcabe23fa4ed389cab7c10a6e980fc (patch)
tree8537340a4572a78d5aa39da3e6981ac50fe79315 /perl-install
parent2a49a120fb9f493785c61ea0dd7abecea8eb3bbc (diff)
downloaddrakx-backup-do-not-use-fccdd76453dcabe23fa4ed389cab7c10a6e980fc.tar
drakx-backup-do-not-use-fccdd76453dcabe23fa4ed389cab7c10a6e980fc.tar.gz
drakx-backup-do-not-use-fccdd76453dcabe23fa4ed389cab7c10a6e980fc.tar.bz2
drakx-backup-do-not-use-fccdd76453dcabe23fa4ed389cab7c10a6e980fc.tar.xz
drakx-backup-do-not-use-fccdd76453dcabe23fa4ed389cab7c10a6e980fc.zip
small fixes
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_interactive.pm7
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) {