From a0a2b0e1819a65000a7efd68072ecb72dd8356ae Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 19 Apr 2013 17:17:09 +0000
Subject: fix losing crypt key when re-reeading partition tables (mga#5661)

---
 perl-install/fs/partitioning_wizard.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/fs/partitioning_wizard.pm')

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 12216bcf4..0aa8f82f4 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -38,9 +38,14 @@ sub partition_with_diskdrake {
     do {
 	$ok = 1;
 	my $do_force_reload = sub {
+            require File::Temp;
+            my (undef, $tmp_file) = File::Temp::mkstemp('/tmp/crypttab.XXXXXXX');
+            fs::dmcrypt::save_crypttab_($all_hds, $tmp_file);
             my $new_hds = fs::get::empty_all_hds();
             fs::any::get_hds($new_hds, $fstab, $manual_fstab, $partitioning_flags, $skip_mtab, $in);
             %$all_hds = %$new_hds;
+            fs::dmcrypt::read_crypttab_($all_hds, $tmp_file);
+            rm_rf($tmp_file);
             $all_hds;
 	};
 	require diskdrake::interactive;
-- 
cgit v1.2.1