From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 2 Dec 2011 17:30:11 +0000 (-0600)
Subject: skip Perl_my_symlink symbol on older VMS systems.
X-Git-Tag: v5.15.6~268
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/4b476daa33ccf495c0ac155bb4ee5f77e349cb95?ds=sidebyside

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
--- 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') {