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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Teach bisect-runner.pl that on HP-UX, _filbuf() is named __filbuf().
[perl5.git]
/
makedef.pl
diff --git
a/makedef.pl
b/makedef.pl
index
950af85
..
ae3b510
100644
(file)
--- a/
makedef.pl
+++ b/
makedef.pl
@@
-627,7
+627,7
@@
if ($ARGS{PLATFORM} eq 'netware') {
}
if ($define{'USE_PERLIO'}) {
}
if ($define{'USE_PERLIO'}) {
- # Export the symols that make up the PerlIO abstraction, regardless
+ # Export the sym
b
ols that make up the PerlIO abstraction, regardless
# of its implementation - read from a file
push @syms, 'perlio.sym';
# of its implementation - read from a file
push @syms, 'perlio.sym';
@@
-755,7
+755,8
@@
if ($define{'USE_PERLIO'}) {
# within the block, as the *first* definition may have flags which
# mean "don't export"
next if $seen{$func}++;
# within the block, as the *first* definition may have flags which
# mean "don't export"
next if $seen{$func}++;
- $func = "Perl_$func" if $flags =~ /[pbX]/;
+ # Should we also skip adding the Perl_ prefix if $flags =~ /o/ ?
+ $func = "Perl_$func" if ($flags =~ /[pbX]/ && $func !~ /^Perl_/);
++$export{$func} unless exists $skip{$func};
}
}
++$export{$func} unless exists $skip{$func};
}
}