From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 14 Jan 2006 16:45:56 +0000 (+0000)
Subject: Give up on through.t on VMS for now -- no can do with current
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0af9e25736af1db45f911cff46a82e83dcb84a83;p=p5sagit%2Fp5-mst-13.2.git

Give up on through.t on VMS for now -- no can do with current
pipe implementation.

p4raw-id: //depot/perl@26857
---

diff --git a/t/io/through.t b/t/io/through.t
index 9c8a627..60c75c9 100644
--- a/t/io/through.t
+++ b/t/io/through.t
@@ -1,6 +1,10 @@
 #!./perl
 
 BEGIN {
+    if ($^O eq 'VMS') {
+        print "1..0 # Skip on VMS -- too picky about line endings for record-oriented pipes\n";
+        exit;
+    }
     chdir 't' if -d 't';
     @INC = '../lib';
 }