Change 17249 by jhi@alpha on 2002/06/14 23:14:44
findrfuncs: small tweaks.
Affected files ...
.... //depot/perl/Porting/findrfuncs#9 edit
Differences ...
==== //depot/perl/Porting/findrfuncs#9 (text) ====
Index: perl/Porting/findrfuncs
--- perl/Porting/findrfuncs#8~15253~ Sat Mar 16 08:11:49 2002
+++ perl/Porting/findrfuncs Fri Jun 14 16:14:44 2002
@@ -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
# [EMAIL PROTECTED]
#
@@ -106,7 +109,7 @@
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 @@
}
@syms = ();
}
-
End of Patch.
