From: Michael G. Schwern <schwern@pobox.com>
Date: Thu, 6 Dec 2001 13:54:48 +0000 (-0500)
Subject: VMS has no link count
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5bfebd7c629d0200c9cac51c56fad3ced472c02;p=p5sagit%2Fp5-mst-13.2.git

VMS has no link count
Message-ID: <20011206185448.GC16414@blackrider>

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

diff --git a/t/op/stat.t b/t/op/stat.t
index e2f9c32..2673ef4 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -40,7 +40,11 @@ close FOO;
 open(FOO, ">$tmpfile") || BAILOUT("Can't open temp test file: $!");
 
 my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
-is($nlink, 1, 'nlink on regular file');
+SKIP: {
+    skip "No link count", 1 if $Is_VMS;
+
+    is($nlink, 1, 'nlink on regular file');
+}
 
 SKIP: {
   skip "mtime and ctime not reliable", 2