This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Give up on through.t on VMS for now -- no can do with current
authorCraig A. Berry <craigberry@mac.com>
Sat, 14 Jan 2006 16:45:56 +0000 (16:45 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sat, 14 Jan 2006 16:45:56 +0000 (16:45 +0000)
pipe implementation.

p4raw-id: //depot/perl@26857

t/io/through.t

index 9c8a627..60c75c9 100644 (file)
@@ -1,6 +1,10 @@
 #!./perl
 
 BEGIN {
 #!./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';
 }
     chdir 't' if -d 't';
     @INC = '../lib';
 }