1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index d12d17107..5dd145e78 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -11,7 +11,6 @@ use common qw(:common :constant :functional :file);
 use partition_table qw(:types);
 use partition_table_raw;
 use detect_devices;
-use Data::Dumper;
 use fsedit;
 use devices;
 use loopback;
@@ -308,6 +307,7 @@ sub auto_allocate {
 
 sub undo_prepare($) {
     my ($hds) = @_;
+    require Data::Dumper;
     $Data::Dumper::Purity = 1;
     foreach (@$hds) {
 	my @h = @{$_}{@partition_table::fields2save};