From 4b476daa33ccf495c0ac155bb4ee5f77e349cb95 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Fri, 2 Dec 2011 11:30:11 -0600
Subject: [PATCH] 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.
---
 makedef.pl | 3 +++
 1 file changed, 3 insertions(+)

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