In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/06c85fbec03100d7bede76137c3bf1806375df18?hp=38660758eac8adeb295dc909fd99ee5a859cf108>
- Log ----------------------------------------------------------------- commit 06c85fbec03100d7bede76137c3bf1806375df18 Author: Craig A. Berry <[email protected]> Date: Thu Jun 30 09:08:31 2016 -0500 Use catfile, not catdir in metadata.t. Otherwise $basename comes up empty on VMS. Already pushed upstream as: https://github.com/Perl-Toolchain-Gang/Module-Metadata/commit/59b3f5b45ff862a1a422a409518255736fe81b66 ----------------------------------------------------------------------- Summary of changes: cpan/Module-Metadata/t/metadata.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cpan/Module-Metadata/t/metadata.t b/cpan/Module-Metadata/t/metadata.t index 8135773..5dee700 100644 --- a/cpan/Module-Metadata/t/metadata.t +++ b/cpan/Module-Metadata/t/metadata.t @@ -361,7 +361,7 @@ Hello, this is pod. my $errs; - my ($vol, $dir, $basename) = File::Spec->splitpath(File::Spec->catdir($tmpdir, "Simple${test_num}", ($test_case->{filename} || 'Simple.pm'))); + my ($vol, $dir, $basename) = File::Spec->splitpath(File::Spec->catfile($tmpdir, "Simple${test_num}", ($test_case->{filename} || 'Simple.pm'))); my $pm_info = Module::Metadata->new_from_file(generate_file($dir, $basename, $code)); my $got_name = $pm_info->name; -- Perl5 Master Repository
