summaryrefslogtreecommitdiff
path: root/cpan/IO-Compress/t/compress
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2011-06-22 17:10:36 +0100
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2011-06-22 17:10:36 +0100
commit101c03fac6d3b85ba1a8c5ef6b9e48600e1f429f (patch)
tree20d954ff262accf04b839182a8122550f330591c /cpan/IO-Compress/t/compress
parent98a346069365dd4a2f9b022447ee8009e3454f31 (diff)
downloadperl-101c03fac6d3b85ba1a8c5ef6b9e48600e1f429f.tar.gz
Update IO-Compress to CPAN version 2.037
[DELTA] 2.037 22 June 2011 * IO::Uncompress - get globmapper tests working on VMS [RT# 68926] * IO::Uncompress::Unzip - Fixed limitation where Streamed Stored content was not supported.
Diffstat (limited to 'cpan/IO-Compress/t/compress')
-rw-r--r--cpan/IO-Compress/t/compress/CompTestUtils.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/cpan/IO-Compress/t/compress/CompTestUtils.pm b/cpan/IO-Compress/t/compress/CompTestUtils.pm
index 644a61876f..9815eb2caa 100644
--- a/cpan/IO-Compress/t/compress/CompTestUtils.pm
+++ b/cpan/IO-Compress/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 ;
}