diff options
| author | Craig A. Berry <craigberry@mac.com> | 2006-01-18 05:12:10 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-01-18 05:12:10 +0000 |
| commit | 0a475e9939f02cc9940a8cd9cee7dcd125eb6b48 (patch) | |
| tree | 81f286586d23576bc7f3558e8e0469e4abb98384 /lib | |
| parent | 81e08b8aadcad25663c7f2cda0bb6fdffa6a6ae7 (diff) | |
| download | perl-0a475e9939f02cc9940a8cd9cee7dcd125eb6b48.tar.gz | |
special VMS handling no longer needed since we now close the file
p4raw-id: //depot/perl@26889
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Compare.t | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/lib/File/Compare.t b/lib/File/Compare.t index b5a3e78ef4..2685077b36 100644 --- a/lib/File/Compare.t +++ b/lib/File/Compare.t @@ -105,16 +105,8 @@ print "# problem '$@' when testing with a temporary file\n" if $@; if (@donetests == 3) { print "not " unless $donetests[0] == 0; print "ok 11 # fh/file [$donetests[0]]\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 # file/file [$donetests[1]]\n"; - } - else { - print "not " unless $donetests[1] == 0; - print "ok 12 # file/file [$donetests[1]]\n"; - } + print "not " unless $donetests[1] == 0; + print "ok 12 # file/file [$donetests[1]]\n"; print "not " unless $donetests[2] == 0; print "ok 13 # "; print "TODO" if $^O eq "cygwin"; # spaces after filename silently trunc'd |