| version 1.9, 2008/05/05 20:02:57 |
version 1.10, 2008/09/16 23:15:03 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| # $RedRiver: find_depends,v 1.8 2008/05/05 18:58:18 andrew Exp $ |
# $RedRiver: find_depends,v 1.9 2008/05/05 19:02:57 andrew Exp $ |
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| |
|
|
|
| my ($name, $maj, $min) = $_ =~ /lib([^\/]+)\.so\.(\d+)\.(\d+)$/; |
my ($name, $maj, $min) = $_ =~ /lib([^\/]+)\.so\.(\d+)\.(\d+)$/; |
| next if ! $name; |
next if ! $name; |
| my $spec = 'l' . $name . '.' . $maj . '.' . $min; |
my $spec = 'l' . $name . '.' . $maj . '.' . $min; |
| |
print " Found spec '$spec'\n" if $opts{v}; |
| |
|
| if (exists $ld->{$spec}) { |
if (exists $ld->{$spec}) { |
| next if exists $locs->{$spec}; |
next if exists $locs->{$spec}; |
| |
|
| $locs->{$spec} = $ld->{$spec}; |
$locs->{$spec} = $ld->{$spec}; |
| |
$locs = find_libs($ld->{$spec}, $ld, $locs); |
| $locs = find_libs($locs->{$spec}, $ld, $locs); |
|
| |
|
| } else { |
} else { |
| warn "Couldn't find location for lib '$_' (file '$file')"; |
warn "Couldn't find location for lib '$_' (file '$file')"; |