diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-14 23:14:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-14 23:14:44 +0000 |
| commit | 1fb76a4637fd4800180784d4acf2abcdd008365e (patch) | |
| tree | 51baf5da32c0b00d77e7729e33cea4bdae36a8af /Porting | |
| parent | 9cffef09bb5dd26e11c82b982f4e8d8597449682 (diff) | |
| download | perl-1fb76a4637fd4800180784d4acf2abcdd008365e.tar.gz | |
findrfuncs: small tweaks.
p4raw-id: //depot/perl@17249
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/findrfuncs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Porting/findrfuncs b/Porting/findrfuncs index 4254a7afb1..520f158381 100644 --- a/Porting/findrfuncs +++ b/Porting/findrfuncs @@ -1,11 +1,14 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl -ws # # findrfuncs: find reentrant variants of functions used in an executable. +# # Requires a functional "nm -u". Searches headers in /usr/include # to find available *_r functions and looks for non-reentrant # variants used in the supplied executable. # +# Requires debug info in the shared libraries/executables. +# # Gurusamy Sarathy # gsar@ActiveState.com # @@ -106,7 +109,7 @@ my %syms; for my $exe (@EXES) { # warn "#--- $exe\n"; - for my $sym (`$NMU $exe`) { + for my $sym (`$NMU $exe 2>/dev/null`) { chomp $sym; $sym =~ s/^\s+//; $sym =~ s/^([0-9A-Fa-f]+\s+)?[Uu]\s+//; @@ -128,4 +131,3 @@ for my $exe (@EXES) { } @syms = (); } - |