[Reproducible-commits] [libextutils-depends-perl] 123/187: $Data::Dumper::Terse set to 1 broke save_config. Test & fix.

[Maria Valentina Marin Rodrigues]

This is an automated email from the git hooks/post-receive script.

akira-guest pushed a commit to branch pu/reproducible_builds
in repository libextutils-depends-perl.

commit 3a9fa6bed3ae16be5d4f6cf9531bd65c6c5909f9
Author: Ed J <m8r-35s8eo at mailinator.com>
Date:   Sun Apr 13 01:54:34 2014 +0100

    $Data::Dumper::Terse set to 1 broke save_config. Test & fix.
---
 lib/ExtUtils/Depends.pm |  1 +
 t/02_save_load.t        | 10 ++++++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/ExtUtils/Depends.pm b/lib/ExtUtils/Depends.pm
index 05ef316..5431839 100644
--- a/lib/ExtUtils/Depends.pm
+++ b/lib/ExtUtils/Depends.pm
@@ -112,6 +112,7 @@ sub install {
 
 sub save_config {
 	use Data::Dumper;
+	local $Data::Dumper::Terse = 0;
 	use IO::File;
 
 	my ($self, $filename) = @_;
diff --git a/t/02_save_load.t b/t/02_save_load.t
index 9d50572..5392d7b 100644
--- a/t/02_save_load.t
+++ b/t/02_save_load.t
@@ -40,6 +40,8 @@ my @installed_files = qw(dep.h
                          dep-private.h);
 $dep_info->install (@installed_files);
 
+use Data::Dumper;
+$Data::Dumper::Terse = 1;
 $dep_info->save_config (catfile $tmp_inc, qw(DepTest Install Files.pm));
 
 # --------------------------------------------------------------------------- #
@@ -75,9 +77,13 @@ my $info = ExtUtils::Depends::load ('DepTest');
 
 my $install_part = qr|DepTest.Install|;
 like ($info->{inc}, $install_part);
-ok (-1 != index $info->{inc}, $inc);
+isnt (index($info->{inc}, $inc), -1);
 
-isa_ok ($info->{typemaps}, 'ARRAY');
+is_deeply (
+  [ map { my $t = $_; $t =~ s#.*DepTest/Install/##; $t } @{$info->{typemaps}} ],
+  [ map { my $t = $_; $t =~ s#build/##; $t } @typemaps ],
+  'check typemaps actually saved/loaded'
+);
 
 like ($info->{instpath}, $install_part);
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/libextutils-depends-perl.git