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 (executable)
--- 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