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 +-
 perl-install/partition_table.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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