From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 12 Jun 2001 19:34:08 +0000 (-0700)
Subject: fix for file locking and filecomp test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=584e6f13d926fe0b642c15b1e9b474964755c62f;p=p5sagit%2Fp5-mst-13.2.git

fix for file locking and filecomp test
Message-ID: <Pine.OSF.4.10.10106121927580.15174-100000@aspara.forte.com>

p4raw-id: //depot/perl@10552
---

diff --git a/t/lib/filecomp.t b/t/lib/filecomp.t
index 167a46a..aedc323 100644
--- a/t/lib/filecomp.t
+++ b/t/lib/filecomp.t
@@ -97,8 +97,16 @@ print "# problems when testing with a tempory file\n" if $@;
 if (@donetests == 2) {
   print "not " unless $donetests[0] == 0;
   print "ok 11\n";
-  print "not " unless $donetests[1] == 0;
-  print "ok 12\n";
+  if ($^O eq 'VMS') {
+    # The open attempt on FROM in File::Compare::compare should fail
+    # on this OS since files are not shared by default.
+    print "not " unless $donetests[1] == -1;
+    print "ok 12\n";
+  }
+  else {
+    print "not " unless $donetests[1] == 0;
+    print "ok 12\n";
+  }
 }
 else {
   print "ok 11# Skip\nok 12 # Skip Likely due to File::Temp\n";