[Reproducible-commits] [libextutils-depends-perl] 131/187: Fix win32 test failure in t/02_save_load.t

[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 5976a6e63249a28134c5d823286dceff205a25e6
Author: C.H. Kang <AERO at cpan.org>
Date:   Sat May 10 16:16:46 2014 +0200

    Fix win32 test failure in t/02_save_load.t
---
 t/02_save_load.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/02_save_load.t b/t/02_save_load.t
index 101acf8..c68fa3f 100644
--- a/t/02_save_load.t
+++ b/t/02_save_load.t
@@ -80,7 +80,7 @@ like ($info->{inc}, $install_part);
 isnt (index($info->{inc}, $inc), -1);
 
 my @typemaps_expected = map { my $t = $_; $t =~ s#build/##; $t } @typemaps;
-sub strip_typemap { my $t = $_; $t =~ s#.*DepTest/Install/##; $t }
+sub strip_typemap { my $t = $_; my $tmp = catfile('DepTest','Install',' '); $tmp =~ s# $##; $t =~ s#.*\Q$tmp\E##; $t }
 is_deeply (
   [ map { strip_typemap($_) } @{$info->{typemaps}} ],
   \@typemaps_expected,

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