openbsd/fill_chroot/find_depends - diff

Return to find_depends CVS log

Up to [local] / openbsd / fill_chroot

version 1.8, 2008/05/05 19:58:18

version 1.10, 2008/09/16 23:15:03

Line 1

#!/usr/bin/perl

# $RedRiver: find_depends,v 1.7 2008/04/22 20:08:41 andrew Exp $

# $RedRiver: find_depends,v 1.9 2008/05/05 19:02:57 andrew Exp $

use strict;

use warnings;

Line 69

my ($name, $maj, $min) = $_ =~ /lib([^\/]+)\.so\.(\d+)\.(\d+)$/;

next if ! $name;

my $spec = 'l' . $name . '.' . $maj . '.' . $min;

print " Found spec '$spec'\n" if $opts{v};

if (exists $ld->{$spec}) {

next if exists $locs->{$spec};

$locs->{$spec} = $ld->{$spec};

$locs = find_libs($ld->{$spec}, $ld, $locs);

$locs = find_libs($locs->{$spec}, $ld, $locs);

} else {

warn "Couldn't find location for lib '$_' (file '$file')";

Line 92

open my $libs, '-|', '/usr/bin/ldd', $file or die "Couldn't open ldd '$file': $!";

while (<$libs>) {

next if length($_) < 56;

chomp;

my $spec = substr $_, 56;

my ($spec) = (split(/\s+/, $_))[7];

next if ! $spec;

next if $spec !~ m{^/}xms;

push @libs, $spec;

}