diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-08 17:56:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-08 17:56:36 +0000 |
| commit | 6c03d0f32decf210521faaa44c28820ed270af66 (patch) | |
| tree | dc6cf105efc170e4064b0e09c12ab14ec063ae76 /Porting/findrfuncs | |
| parent | bb304ec8d8e029b37ee317ef1c3ab3a4f3743b3b (diff) | |
| download | perl-6c03d0f32decf210521faaa44c28820ed270af66.tar.gz | |
HP-UX nm seems to repeat itself.
p4raw-id: //depot/perl@15112
Diffstat (limited to 'Porting/findrfuncs')
| -rw-r--r-- | Porting/findrfuncs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Porting/findrfuncs b/Porting/findrfuncs index 0e1d3d0ecb..c4a2985c83 100644 --- 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; } } |