diff options
Diffstat (limited to 'cpan/Compress-Raw-Zlib/t/compress/CompTestUtils.pm')
| -rw-r--r-- | cpan/Compress-Raw-Zlib/t/compress/CompTestUtils.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/cpan/Compress-Raw-Zlib/t/compress/CompTestUtils.pm b/cpan/Compress-Raw-Zlib/t/compress/CompTestUtils.pm index 644a61876f..9815eb2caa 100644 --- a/cpan/Compress-Raw-Zlib/t/compress/CompTestUtils.pm +++ b/cpan/Compress-Raw-Zlib/t/compress/CompTestUtils.pm @@ -83,6 +83,12 @@ BEGIN { { Carp::croak "NO!!!!" if defined $_; $_ = File::Temp->newdir(DIR => '.'); + # Subsequent manipulations assume Unix syntax, metacharacters, etc. + if ($^O eq 'VMS') + { + $_->{DIRNAME} = VMS::Filespec::unixify($_->{DIRNAME}); + $_->{DIRNAME} =~ s/\/$//; + } } bless [ @_ ], $self ; } @@ -92,6 +98,12 @@ BEGIN { { Carp::croak "NO!!!!" if defined $_; $_ = File::Temp::tempdir(DIR => '.', CLEANUP => 1); + # Subsequent manipulations assume Unix syntax, metacharacters, etc. + if ($^O eq 'VMS') + { + $_ = VMS::Filespec::unixify($_); + $_ =~ s/\/$//; + } } bless [ @_ ], $self ; } |