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 (file)
--- 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';
 }