This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip Perl_my_symlink symbol on older VMS systems.
authorCraig A. Berry <craigberry@mac.com>
Fri, 2 Dec 2011 17:30:11 +0000 (11:30 -0600)
committerCraig A. Berry <craigberry@mac.com>
Fri, 2 Dec 2011 17:30:11 +0000 (11:30 -0600)
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

index 1a44d1b..8d6148a 100644 (file)
@@ -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') {