summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 2c2be3faa..41df6a5f9 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -350,11 +350,8 @@ sub createOrChangeType {
} elsif (!$type) {
$in->ask_warn('', N("Use ``%s'' instead", N("Delete"))) if $part->{type};
} elsif ($part->{type}) {
- return unless $::expert;
return if $type == $part->{type};
- isBusy($part) and $in->ask_warn('', N("Use ``Unmount'' first")), return;
- diskdrake::interactive::ask_alldatawillbelost($in, $part, N_("After changing type of partition %s, all data on this partition will be lost")) or return;
- diskdrake::interactive::check_type($in, $type, $hd, $part) and fsedit::change_type($type, $hd, $part);
+ $in->ask_warn('', isBusy($part) ? N("Use ``Unmount'' first") : N("Use ``%s'' instead", N("Type")));
} else {
$part->{type} = $type;
diskdrake::interactive::Create($in, $hd, $part, $all_hds);