This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a983b67
)
Skip multi-arg piped open in autodie test on VMS.
author
Craig A. Berry
<craigberry@mac.com>
Sat, 27 Nov 2010 00:45:24 +0000
(18:45 -0600)
committer
Craig 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
patch
|
blob
|
blame
|
history
diff --git
a/cpan/autodie/t/open.t
b/cpan/autodie/t/open.t
index
359eb9a
..
67f6f0c
100644
(file)
--- 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");
};