This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip multi-arg piped open in autodie test on VMS.
authorCraig A. Berry <craigberry@mac.com>
Sat, 27 Nov 2010 00:45:24 +0000 (18:45 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 27 Nov 2010 00:45:24 +0000 (18:45 -0600)
Awaiting upstream integration at:

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

cpan/autodie/t/open.t

index 359eb9a..67f6f0c 100644 (file)
@@ -56,7 +56,7 @@ unlike($@, qr/at \S+ line \d+\s+at \S+ line \d+/, "...but not too mentions");
 eval {
     use autodie;
 
 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");
 };
 
     open(my $fh, '-|', "true");
 };