diff options
| author | Craig A. Berry <craigberry@mac.com> | 2016-06-30 09:08:31 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2016-06-30 09:25:42 -0500 |
| commit | 06c85fbec03100d7bede76137c3bf1806375df18 (patch) | |
| tree | a72f43aedc4191a5d63c27f16606c13af0b2b689 /cpan/Module-Metadata | |
| parent | 38660758eac8adeb295dc909fd99ee5a859cf108 (diff) | |
| download | perl-06c85fbec03100d7bede76137c3bf1806375df18.tar.gz | |
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
Diffstat (limited to 'cpan/Module-Metadata')
| -rw-r--r-- | cpan/Module-Metadata/t/metadata.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/Module-Metadata/t/metadata.t b/cpan/Module-Metadata/t/metadata.t index 813577387c..5dee700bbc 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; |