(as suggested by Alexander Skwar)

- in interactive::check_type, check if the package (like jfsprogs) is installed
- use interactive::check_type where usefull
- cleanup

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 89dd91deb..0755d9b42 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -110,7 +110,7 @@ sub try_ {
 
     fsedit::undo_prepare($all_hds) if $name ne 'Undo';
 
-    my $v = eval { $f->($in, @args, $all_hds); };
+    my $v = eval { $f->($in, @args, $all_hds) };
     if (my $err = $@) {
 	$err =~ /setstep/ and die '';
     	$in->ask_warn(_("Error"), formatError($err));
@@ -347,7 +347,7 @@ sub createOrChangeType {
 	return if $type == $part->{type};
 	isBusy($part) and $in->ask_warn('', _("Use ``Unmount'' first")), return;
 	diskdrake::interactive::ask_alldatawillbelost($in, $part, __("After changing type of partition %s, all data on this partition will be lost")) or return;
-	fsedit::change_type($type, $hd, $part);
+	check_type($in, $type, $hd, $part) and fsedit::change_type($type, $hd, $part);
     } else {
 	$part->{type} = $type;
 	diskdrake::interactive::Create($in, $hd, $part, $all_hds);