skip Perl_my_symlink symbol on older VMS systems.

It's a wrapper for cases where we have symlink, not a replacement
for cases where we don't (pre-v8.3).  Trying to include it on
older systems causes a link error.

diff --git a/makedef.pl b/makedef.pl
index 1a44d1b..8d6148a 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -196,6 +196,9 @@ if ($ARGS{PLATFORM} ne 'os2') {
                         );
     if ($ARGS{PLATFORM} eq 'vms') {
        ++$skip{PL_statusvalue_posix};
+        # This is a wrapper if we have symlink, not a replacement
+        # if we don't.
+        ++$skip{Perl_my_symlink} unless $Config{d_symlink};
     } else {
        ++$skip{PL_statusvalue_vms};
        if ($ARGS{PLATFORM} ne 'aix') {