From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 29 Jul 2007 18:13:46 +0000 (+0000)
Subject: Oops, 31665 was empty.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9accb295df24fb8926edf2982153101207266a00;p=p5sagit%2Fp5-mst-13.2.git

Oops, 31665 was empty.

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

diff --git a/t/op/stat.t b/t/op/stat.t
index f00bd28..dbddaef 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -50,9 +50,10 @@ open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
 
 my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
 
-#VMS Fix-me: nlink should work on VMS if applicable link support configured.
+#nlink should if link support configured in Perl.
 SKIP: {
-    skip "No link count", 1 if $Is_VMS;
+    skip "No link count - Hard link support not built in.", 1
+	unless $Config{d_link};
 
     is($nlink, 1, 'nlink on regular file');
 }