From f6a6c074b5a9bd50c5437607c31d0b14a25982ef Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Mon, 9 Feb 2009 17:28:54 +0000 Subject: - Save the info that a disk is removable --- perl-install/diskdrake/interactive.pm | 2 ++ perl-install/fsedit.pm | 1 + 2 files changed, 3 insertions(+) (limited to 'perl-install') 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; } -- cgit v1.2.1