diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 5 |
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); |