diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-11-26 18:45:24 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-11-26 18:45:24 -0600 |
| commit | 4b074b7191cf70ddeff23e80e0d7a236842ebd1a (patch) | |
| tree | e3e02631b4c149de1dd93e7b1612a42758d16136 /cpan | |
| parent | a983b67a695e2cb334b10a966f2d8bc70d044303 (diff) | |
| download | perl-4b074b7191cf70ddeff23e80e0d7a236842ebd1a.tar.gz | |
Skip multi-arg piped open in autodie test on VMS.
Awaiting upstream integration at:
https://rt.cpan.org/Ticket/Display.html?id=59123
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/autodie/t/open.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/autodie/t/open.t b/cpan/autodie/t/open.t index 359eb9a9f2..67f6f0cf55 100644 --- a/cpan/autodie/t/open.t +++ b/cpan/autodie/t/open.t @@ -56,7 +56,7 @@ unlike($@, qr/at \S+ line \d+\s+at \S+ line \d+/, "...but not too mentions"); eval { use autodie; - die "Windows does not support multi-arg pipe" if $^O eq "MSWin32"; + die "Windows and VMS do not support multi-arg pipe" if $^O eq "MSWin32" or $^O eq 'VMS'; open(my $fh, '-|', "true"); }; |