In t/op/stat.t, enable the test for link count if perl is configured
with support for link.
Previously this test was skipped on VMS even when link support was
configured in.
The VMS Configure.com prevents link support from being configured unless
Perl is being built on a volume that is configured to support hard links
on VMS 8.2 or later.
So there is no reason to make this a VMS specific test, other than it
appears VMS is the only platform that needs it.
Note for VMS maintainers:
If you want hard link support on VMS 7.3-1 and 7.3-2, then you need to
come up with a test in Configure.com to verify that hard links are
enabled on the build volume.
If Perl is attempted to be built with hard links enabled on a volume
that does not support hard links, the build will probably fail, as the
build procedure may attempt to use the hard links.
I do not have the resources to do test VMS 7.3-1 or VMS 7.3-2 and do not
expect to.
-John
[EMAIL PROTECTED]
Personal Opinion Only
--- /rsync_root/perl/t/op/stat.t Tue May 1 10:37:13 2007
+++ t/op/stat.t Sun Jul 29 07:30:58 2007
@@ -50,9 +50,10 @@
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');
}
