summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm2
-rw-r--r--perl-install/fsedit.pm1
2 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index e266d0443..c68c9a25b 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -148,6 +148,8 @@ struct hd {
list allPartitionsRenumbered # used to update bootloader configuration
int bus, id
+ bool is_removable # is it a removable drive
+
partition_table_elem primary
partition_table_elem extended[]
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 17ed0647b..25d6ce9e5 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -276,6 +276,7 @@ Do you agree to lose all the partitions?
}
if ($hd->{usb_media_type}) {
+ $hd->{is_removable} = 1;
$_->{is_removable} = 1 foreach @parts;
}