From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 27 Nov 2010 00:45:24 +0000 (-0600)
Subject: Skip multi-arg piped open in autodie test on VMS.
X-Git-Tag: accepted/trunk/20130322.191538~6586^2~127
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4b074b7191cf70ddeff23e80e0d7a236842ebd1a;p=platform%2Fupstream%2Fperl.git

Skip multi-arg piped open in autodie test on VMS.

Awaiting upstream integration at:

https://rt.cpan.org/Ticket/Display.html?id=59123
---

diff --git a/cpan/autodie/t/open.t b/cpan/autodie/t/open.t
index 359eb9a..67f6f0c 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");
 };