From 584e6f13d926fe0b642c15b1e9b474964755c62f Mon Sep 17 00:00:00 2001 From: Peter Prymmer Date: Tue, 12 Jun 2001 12:34:08 -0700 Subject: [PATCH] fix for file locking and filecomp test Message-ID: p4raw-id: //depot/perl@10552 --- t/lib/filecomp.t | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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"; -- 2.7.4