summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-10-27 14:03:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-10-27 14:03:58 +0000
commitc53e1ebc11f7777852b23781edbb39480655e80c (patch)
tree88caf19c76d311bfaef37ab40b37438f56383758 /perl-install/diskdrake/interactive.pm
parent3fc1833600024a331442a9e4492f157c1163742c (diff)
downloaddrakx-backup-do-not-use-c53e1ebc11f7777852b23781edbb39480655e80c.tar
drakx-backup-do-not-use-c53e1ebc11f7777852b23781edbb39480655e80c.tar.gz
drakx-backup-do-not-use-c53e1ebc11f7777852b23781edbb39480655e80c.tar.bz2
drakx-backup-do-not-use-c53e1ebc11f7777852b23781edbb39480655e80c.tar.xz
drakx-backup-do-not-use-c53e1ebc11f7777852b23781edbb39480655e80c.zip
warn about created partition with a given mount point but not formatted
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
-rw-r--r--perl-install/diskdrake/interactive.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 83b8c3310..7c6c4c3fa 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -268,6 +268,11 @@ sub Done {
$::expert or die;
$in->ask_okcancel('', [ formatError($err), N("Continue anyway?") ]) or return;
}
+ if (my $part = find { $_->{mntpoint} && !maybeFormatted($_) } fs::get::fstab($all_hds)) {
+ $in->ask_okcancel('', N("You should format partition %s.
+Otherwise no entry for mount point %s will be written in fstab.
+Quit anyway?", $part->{device}, $part->{mntpoint})) or return;
+ }
foreach (@{$all_hds->{hds}}) {
if (!write_partitions($in, $_, 'skip_check_rebootNeeded')) {
return if !$::isStandalone;