also check libs with paths.
This commit is contained in:
parent
8f7a456913
commit
86e868c57c
@ -1,6 +1,6 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
# $OpenBSD: check-libs-elf,v 1.2 2004/02/01 23:43:26 espie Exp $
|
||||
# $OpenBSD: check-libs-elf,v 1.3 2004/02/12 14:04:43 espie Exp $
|
||||
|
||||
# Copyright (c) 2001 Marc Espie
|
||||
#
|
||||
@ -70,12 +70,16 @@ while (<$builds>) {
|
||||
close($builds);
|
||||
|
||||
while (<$libs>) {
|
||||
my ($name, $major, $minor);
|
||||
my ($path, $name, $major, $minor);
|
||||
chomp;
|
||||
if (m/^lib(\S+)\s+(\d+)\s+(\d+)$/) {
|
||||
($name, $major, $minor) = ($1, $2, $3);
|
||||
} elsif (m/^(.*)\/lib(\S+)\s+(\d+)\s+(\d+)$/) {
|
||||
($path, $name, $major, $minor) = ($1, $2, $3, $4);
|
||||
} elsif (m/^lib(\S+)$/) {
|
||||
$name = $1;
|
||||
} elsif (m/^(.*)\/lib(\S+)$/) {
|
||||
($path, $name) = ($1, $2);
|
||||
} else {
|
||||
next;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user