From d4a0c6f3fd7e1afcf00066d61e6733d74c5a3772 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Thu, 21 Jun 2001 04:58:52 -0500
Subject: fix Deparse.t and write.t for VMS Message-Id:
 <5.1.0.14.0.20010620172532.033cdb88@exchi01>

p4raw-id: //depot/perl@10815
---
 t/op/write.t | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 't')

diff --git a/t/op/write.t b/t/op/write.t
index 28309748d1..7dddbb46ec 100755
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -273,6 +273,11 @@ else
 
 # 12..44: scary format testing from Merijn H. Brand
 
+if ($^O eq 'VMS') {
+  foreach (12..44) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
+  exit(0);
+}
+
 use strict;	# Amazed that this hackery can be made strict ...
 
 # Just a complete test for format, including top-, left- and bottom marging
-- 
cgit v1.2.1


From 7717d7fd47c816dc7a9ba8caed2e475728fa368f Mon Sep 17 00:00:00 2001
From: Prymmer/Kahn <pvhp@best.com>
Date: Thu, 21 Jun 2001 16:45:15 -0700
Subject: clean up after t/pod/plainer.t on Win32 Message-ID:
 <Pine.BSF.4.21.0106212341510.6026-100000@shell8.ba.best.com>

p4raw-id: //depot/perl@10818
---
 t/pod/plainer.t | 2 ++
 1 file changed, 2 insertions(+)

(limited to 't')

diff --git a/t/pod/plainer.t b/t/pod/plainer.t
index 7bc0b8dde3..293edbbe17 100644
--- a/t/pod/plainer.t
+++ b/t/pod/plainer.t
@@ -31,6 +31,8 @@ while( <DATA> ) {
        print "not ";
     }
     printf "ok %d\n", ++$test; 
+    close OUT;
+    close IN;
 }
 
 END { 
-- 
cgit v1.2.1