[BACK]Return to find_depends CVS log [TXT][DIR] Up to [local] / openbsd / fill_chroot

Diff for /openbsd/fill_chroot/find_depends between version 1.9 and 1.10

version 1.9, 2008/05/05 20:02:57 version 1.10, 2008/09/16 23:15:03
Line 1 
Line 1 
 #!/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;
   
Line 69 
Line 69 
     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')";

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>