Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
GitUtils.pm	2.38 KB	-r--r--r--	2014-12-27 11:48
Glossary	205.51 KB	-r--r--r--	2014-12-27 11:49
Maintainers	194 B	-r--r--r--	2014-12-27 11:48
Maintainers.pl	45.95 KB	-r-xr-xr-x	2015-01-31 21:59
Maintainers.pm	8.68 KB	-r--r--r--	2014-12-27 11:48
README.pod	10.3 KB	-r--r--r--	2014-12-27 11:49
README.y2038	3.46 KB	-r--r--r--	2014-12-27 11:48
acknowledgements.pl	5.05 KB	-r--r--r--	2014-12-27 11:48
add-package.pl	17.12 KB	-r-xr-xr-x	2014-12-27 11:49
bisect-example.sh	1.25 KB	-r-xr-xr-x	2014-12-27 11:48
bisect-runner.pl	116.34 KB	-r-xr-xr-x	2014-12-27 11:49
bisect.pl	7.44 KB	-r-xr-xr-x	2014-12-27 11:49
bump-perl-version	9.93 KB	-r--r--r--	2014-12-27 11:49
check-cpan-pollution	6.24 KB	-r--r--r--	2014-12-27 11:48
check83.pl	2.22 KB	-r-xr-xr-x	2014-12-27 11:48
checkAUTHORS.pl	44.08 KB	-r-xr-xr-x	2014-12-27 11:49
checkURL.pl	15.01 KB	-r-xr-xr-x	2014-12-27 11:48
checkVERSION.pl	975 B	-r-xr-xr-x	2014-12-27 11:48
checkansi.pl	2 KB	-r-xr-xr-x	2014-12-27 11:48
checkcfgvar.pl	4.21 KB	-r-xr-xr-x	2014-12-27 11:49
checkpodencoding.pl	1.41 KB	-r-xr-xr-x	2014-12-27 11:48
cherrymaint	2.46 KB	-r--r--r--	2014-12-27 11:48
cmpVERSION.pl	6.84 KB	-r-xr-xr-x	2015-01-31 22:11
config.sh	36.38 KB	-r--r--r--	2015-01-28 21:08
config_H	142.35 KB	-r--r--r--	2015-01-28 21:08
config_h.pl	1.85 KB	-r-xr-xr-x	2014-12-27 11:48
core-cpan-diff	23.37 KB	-r--r--r--	2014-12-27 11:48
corecpan.pl	4.52 KB	-r-xr-xr-x	2014-12-27 11:48
corelist-diff	644 B	-r--r--r--	2014-12-27 11:48
corelist-perldelta.pl	30.44 KB	-r-xr-xr-x	2014-12-27 11:49
corelist.pl	15.51 KB	-r-xr-xr-x	2015-01-31 13:38
epigraphs.pod	128.86 KB	-r--r--r--	2015-02-01 03:54
exec-bit.txt	1.28 KB	-r--r--r--	2014-12-27 11:49
exercise_makedef.pl	2.27 KB	-r--r--r--	2014-12-27 11:48
expand-macro.pl	3.68 KB	-r-xr-xr-x	2014-12-27 11:48
findrfuncs	3.07 KB	-r-xr-xr-x	2014-12-27 11:48
git-deltatool	21.11 KB	-r--r--r--	2014-12-27 11:48
git-find-p4-change	905 B	-r--r--r--	2014-12-27 11:48
git-make-p4-refs	405 B	-r--r--r--	2014-12-27 11:48
how_to_write_a_perldelta.pod	7.83 KB	-r--r--r--	2014-12-27 11:48
leakfinder.pl	6.06 KB	-r--r--r--	2014-12-27 11:48
make-rmg-checklist	2.82 KB	-r--r--r--	2014-12-27 11:48
make_dot_patch.pl	1022 B	-r-xr-xr-x	2014-12-27 11:48
make_modlib_cpan.pl	1.93 KB	-r--r--r--	2014-12-27 11:48
make_snapshot.pl	2.33 KB	-r-xr-xr-x	2014-12-27 11:48
makemeta	3.29 KB	-r--r--r--	2014-12-27 11:49
makerel	6.88 KB	-r-xr-xr-x	2014-12-27 11:49
manicheck	644 B	-r--r--r--	2014-12-27 11:48
manisort	1.71 KB	-r--r--r--	2014-12-27 11:48
new-perldelta.pl	3.23 KB	-r--r--r--	2014-12-27 11:48
newtests-perldelta.pl	1.78 KB	-r-xr-xr-x	2014-12-27 11:48
perldelta_template.pod	9.35 KB	-r--r--r--	2015-01-28 21:08
perlhist_calculate.pl	2.65 KB	-r-xr-xr-x	2014-12-27 11:49
pod_lib.pl	17.62 KB	-r--r--r--	2014-12-27 11:49
pod_rules.pl	7.27 KB	-r--r--r--	2014-12-27 11:48
podtidy	303 B	-r--r--r--	2014-12-27 11:48
pumpkin.pod	51.48 KB	-r--r--r--	2014-12-27 11:49
release_announcement_template.txt	845 B	-r--r--r--	2015-01-15 22:12
release_managers_guide.pod	47.51 KB	-r--r--r--	2015-02-01 00:05
release_schedule.pod	3.39 KB	-r--r--r--	2015-01-31 17:19
rt_list_patches	678 B	-r--r--r--	2014-12-27 11:48
sort_perldiag.pl	1.38 KB	-r-xr-xr-x	2014-12-27 11:48
sync-with-cpan	11.7 KB	-r-xr-xr-x	2014-12-27 11:49
timecheck.c	3.52 KB	-r--r--r--	2014-12-27 11:48
timecheck2.c	2.69 KB	-r--r--r--	2014-12-27 11:48
todo.pod	47.26 KB	-r--r--r--	2015-01-28 21:08
valgrindpp.pl	9.44 KB	-r-xr-xr-x	2014-12-27 11:48

Rename

#!/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
#
# Hacked to automatically find the executable and shared objects.
# --jhi

use strict;
use File::Find;

my @EXES;
my $NMU = 'nm -u';
my @INCDIRS = qw(/usr/include);
my $SO = 'so';
my $EXE = '';

if (open(CONFIG, "config.sh")) {
    local $/;
    my $CONFIG = <CONFIG>;
    $SO  = $1 if $CONFIG =~ /^so='(\w+)'/m;
    $EXE = $1 if $CONFIG =~ /^_exe='\.(\w+)'/m;
    close(CONFIG);
}

push @EXES, "perl$EXE";

find(sub {push @EXES, $File::Find::name if /\.$SO$/}, '.' );

push @EXES, @ARGV;

if ($^O eq 'dec_osf') {
    $NMU = 'nm -Bu';
} elsif ($^O eq 'irix') {
    $NMU = 'nm -pu';
}

my %rfuncs;
my @syms;
find(sub {
	return unless -f $File::Find::name;
	local *F;
	open F, "<$File::Find::name"
	    or die "Can't open $File::Find::name: $!";
	my $line;
	while (defined ($line = <F>)) {
	    if ($line =~ /\b(\w+_r)\b/) {
		#warn "$1 => $File::Find::name\n";
		$rfuncs{$1}->{$File::Find::name}++;
	    }
	}
	close F;
     }, @INCDIRS);

# delete bogus symbols grepped out of comments and such
delete $rfuncs{setlocale_r} if $^O eq 'linux';

# delete obsolete (as promised by man pages) symbols
my $netdb_r_obsolete;
if ($^O eq 'hpux') {
    delete $rfuncs{crypt_r};
    delete $rfuncs{drand48_r};
    delete $rfuncs{endgrent_r};
    delete $rfuncs{endpwent_r};
    delete $rfuncs{getgrent_r};
    delete $rfuncs{getpwent_r};
    delete $rfuncs{setlocale_r};
    delete $rfuncs{srand48_r};
    delete $rfuncs{strerror_r};
    $netdb_r_obsolete = 1;
} elsif ($^O eq 'dec_osf') {
    delete $rfuncs{crypt_r};
    delete $rfuncs{strerror_r};
    $netdb_r_obsolete = 1;
}
if ($netdb_r_obsolete) {
    delete @rfuncs{qw(endhostent_r
		      endnetent_r
		      endprotoent_r
		      endservent_r
		      gethostbyaddr_r
		      gethostbyname_r
		      gethostent_r
		      getnetbyaddr_r
		      getnetbyname_r
		      getnetent_r
		      getprotobyname_r
		      getprotobynumber_r
		      getprotoent_r
		      getservbyname_r
		      getservbyport_r
		      getservent_r
		      sethostent_r
		      setnetent_r
		      setprotoent_r
		      setservent_r)};
}

my %syms;

for my $exe (@EXES) {
    # warn "#--- $exe\n";
    for my $sym (`$NMU $exe 2>/dev/null`) {
        chomp $sym;
        $sym =~ s/^\s+//;
        $sym =~ s/^([0-9A-Fa-f]+\s+)?[Uu]\s+//;
        $sym =~ s/\s+[Uu]\s+-$//;
        next if $sym =~ /\s/;
        $sym =~ s/\@.*\z//;	# remove @@GLIBC_2.0 etc
        # warn "#### $sym\n";
        if (exists $rfuncs{"${sym}_r"} && ! $syms{"$sym:$exe"}++) {
    	    push @syms, $sym;
        }
    }
    
    if (@syms) {
        print "\nFollowing symbols in $exe have reentrant versions:\n";
        for my $sym (@syms) {
	    my @f = sort keys %{$rfuncs{$sym . '_r'}};
    	    print "$sym => $sym" . "_r (@f)\n";
        }
    }
    @syms = ();
}