This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cae2d1e
)
skip Perl_my_symlink symbol on older VMS systems.
author
Craig A. Berry
<craigberry@mac.com>
Fri, 2 Dec 2011 17:30:11 +0000
(11:30 -0600)
committer
Craig 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
patch
|
blob
|
blame
|
history
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') {