1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index bd10c2252..e7fd1e1ff 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -3,7 +3,6 @@ package partition_table; # $Id$
 #use diagnostics;
 #use strict;
 #use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @important_types @important_types2 @fields2save);
-use Data::Dumper;
 
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -688,6 +687,7 @@ sub save($$) {
     my ($hd, $file) = @_;
     my @h = @{$hd}{@fields2save};
     local *F;
+    require Data::Dumper;
     open F, ">$file"
       and print F Data::Dumper->Dump([\@h], ['$h']), "\0"
       or die _("Error writing to file %s", $file);