In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/236043b76bacad8509e6820bc1392100ca0fbe19?hp=a790e34851cb2a6d181d9cc91717b41d5917db7b>
- Log ----------------------------------------------------------------- commit 236043b76bacad8509e6820bc1392100ca0fbe19 Author: Karl Williamson <[email protected]> Date: Wed Feb 4 13:22:25 2015 -0700 dist/ExtUtils-CBuilder/t/04-base.t: os390 fix ----------------------------------------------------------------------- Summary of changes: dist/ExtUtils-CBuilder/t/04-base.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t index 1acc3ea..3b525b7 100644 --- a/dist/ExtUtils-CBuilder/t/04-base.t +++ b/dist/ExtUtils-CBuilder/t/04-base.t @@ -269,7 +269,15 @@ is_deeply( \%split_seen, \%exp, if ($^O eq 'dec_osf' && $rp =~ m[^/cluster/members/]) { skip "Tru64 cluster filesystem", 1; } # SKIP - is( uc($rv), uc($rp), "perl_src(): identified directory" ); + elsif ($^O eq 'os390') { + # os390 also has cluster-like things called 'sysplexed'. So far, the + # tail end of the path matches what we passed it (with some prepended + # directories). So test for that. + like( uc($rp), qr/\U\Q$rp\E$/, "perl_src(): identified directory" ); + } + else { + is( uc($rv), uc($rp), "perl_src(): identified directory" ); + } } is( $capture, q{}, "perl_src(): no warning, as expected" ); -- Perl5 Master Repository
