diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-12-02 11:30:11 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-12-02 11:30:11 -0600 |
| commit | 4b476daa33ccf495c0ac155bb4ee5f77e349cb95 (patch) | |
| tree | 3148ee5f976729d88a8612982fffb623c1a6f861 | |
| parent | cae2d1ea6985da876250b218fbf1342cab8e2585 (diff) | |
| download | perl-4b476daa33ccf495c0ac155bb4ee5f77e349cb95.tar.gz | |
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.
| -rw-r--r-- | makedef.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/makedef.pl b/makedef.pl index 1a44d1bd58..8d6148a123 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') { |