Change 13495: [PATCH t/op/stat.t] VMS has no link count

[Jarkko Hietaniemi]

Change 13495 by jhi@alpha on 2001/12/06 17:56:15

        Subject: [PATCH t/op/stat.t] VMS has no link count
        From: Michael G Schwern <[EMAIL PROTECTED]>
        Date: Thu, 6 Dec 2001 13:54:48 -0500
        Message-ID: <20011206185448.GC16414@blackrider>

Affected files ...

.... //depot/perl/t/op/stat.t#40 edit

Differences ...

==== //depot/perl/t/op/stat.t#40 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~        Thu Dec  6 11:00:06 2001
+++ perl/t/op/stat.t    Thu Dec  6 11:00:06 2001
@@ -40,7 +40,11 @@
 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 
End of Patch.