This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip |- based op/write.t on Win32 as well as VMS
authorNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 22 Jun 2001 20:45:12 +0000 (20:45 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 22 Jun 2001 20:45:12 +0000 (20:45 +0000)
p4raw-id: //depot/perlio@10836

t/op/write.t

index 7dddbb4..ac6c035 100755 (executable)
@@ -273,7 +273,7 @@ else
 
 # 12..44: scary format testing from Merijn H. Brand
 
-if ($^O eq 'VMS') {
+if ($^O eq 'VMS' || $^O eq 'MSWin32') {
   foreach (12..44) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
   exit(0);
 }