summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-21 18:00:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-21 18:00:59 +0000
commit512c92973dc5eceae594bd389350a1ab16da7981 (patch)
treee5a3cf0ec14607fcfe36b1764c740977b79f7feb /perl-install
parentdfeb8ebdc3f035b35e24dda340244a2ffbfeeff1 (diff)
downloaddrakx-backup-do-not-use-512c92973dc5eceae594bd389350a1ab16da7981.tar
drakx-backup-do-not-use-512c92973dc5eceae594bd389350a1ab16da7981.tar.gz
drakx-backup-do-not-use-512c92973dc5eceae594bd389350a1ab16da7981.tar.bz2
drakx-backup-do-not-use-512c92973dc5eceae594bd389350a1ab16da7981.tar.xz
drakx-backup-do-not-use-512c92973dc5eceae594bd389350a1ab16da7981.zip
cleanup Data::Dumper use
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm2
-rw-r--r--perl-install/partition_table.pm2
2 files changed, 2 insertions, 2 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};
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);