From 9a85819bad00420ca8cb5965021f0dd76ec565ad Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 23 Apr 2013 19:28:05 +0000
Subject: fix a crash when reloading partition table (mga#9838)

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

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 0aa8f82f4..750e02816 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -39,6 +39,7 @@ sub partition_with_diskdrake {
 	$ok = 1;
 	my $do_force_reload = sub {
             require File::Temp;
+            require fs::dmcrypt;
             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();
-- 
cgit v1.2.1