diff options
| author | Craig A. Berry <craigberry@mac.com> | 2016-10-28 18:58:03 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-10-28 21:36:35 -0400 |
| commit | 356a893ca85ec4486fe0880f5146186a2ae417d0 (patch) | |
| tree | 5b6a7564378fae7bd5c094c1b61b3bf25fe121a6 /cpan/Archive-Tar | |
| parent | 202b0c8a3ba3de0efe5cb730b242b8c0502e1add (diff) | |
| download | perl-356a893ca85ec4486fe0880f5146186a2ae417d0.tar.gz | |
Archive-Tar: in VMS gnutar requires filenames in native format
Diffstat (limited to 'cpan/Archive-Tar')
| -rw-r--r-- | cpan/Archive-Tar/t/09_roundtrip.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/cpan/Archive-Tar/t/09_roundtrip.t b/cpan/Archive-Tar/t/09_roundtrip.t index d40e97aa5c..ca3d701278 100644 --- a/cpan/Archive-Tar/t/09_roundtrip.t +++ b/cpan/Archive-Tar/t/09_roundtrip.t @@ -169,6 +169,9 @@ SKIP: { for my $archive_name (@file_and_directory_archives) { my @contents; + if ($^O eq 'VMS' && $TAR_EXE =~ m/gnutar$/i) { + $archive_name = VMS::Filespec::unixify($archive_name); + } if ($archive_name =~ m/\.tar$/) { @contents = qx{$TAR_EXE tvf $archive_name}; } |