projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
bb304ec
)
HP-UX nm seems to repeat itself.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 8 Mar 2002 17:56:36 +0000
(17:56 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 8 Mar 2002 17:56:36 +0000
(17:56 +0000)
p4raw-id: //depot/perl@15112
Porting/findrfuncs
patch
|
blob
|
history
diff --git
a/Porting/findrfuncs
b/Porting/findrfuncs
index
0e1d3d0
..
c4a2985
100644
(file)
--- a/
Porting/findrfuncs
+++ b/
Porting/findrfuncs
@@
-57,6
+57,8
@@
find(sub {
# delete bogus symbols grepped out of comments and such
delete $rfuncs{setlocale_r} if $^O eq 'linux';
+my %syms;
+
for my $exe (@EXES) {
for my $sym (`$NMU $exe`) {
chomp $sym;
@@
-65,7
+67,7
@@
for my $exe (@EXES) {
next if /\s/;
$sym =~ s/\@.*\z//; # remove @@GLIBC_2.0 etc
# warn "#### $sym\n";
- if (exists $rfuncs{"${sym}_r"}) {
+ if (exists $rfuncs{"${sym}_r"}
&& ! $syms{"$sym:$exe"}++
) {
push @syms, $sym;
}
}