uc plus an 8 bit locale could get confused by UTF-8 values returned by

[p5sagit/p5-mst-13.2.git] / t / io / through.t

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';
 }