From 512c92973dc5eceae594bd389350a1ab16da7981 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 21 Feb 2001 18:00:59 +0000
Subject: cleanup Data::Dumper use

---
 perl-install/fsedit.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/fsedit.pm')

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};
-- 
cgit v1.2.1