ouch, look for the actual location, not the package name, so that

we use built packages as much as possible (this is much faster than
regenerating packing-lists on the fly).
This commit is contained in:
espie 2007-06-03 11:57:36 +00:00
parent b4a526a3bb
commit d2fbe0a110

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
# $OpenBSD: check-lib-depends,v 1.10 2007/06/03 11:01:10 espie Exp $
# $OpenBSD: check-lib-depends,v 1.11 2007/06/03 11:57:36 espie Exp $
# Copyright (c) 2004 Marc Espie <espie@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
@ -424,7 +424,7 @@ my $dependencies = {};
sub register_dependencies
{
my $plist = shift;
my $pkgname = $plist->pkgname();
my $pkgname = $plist->pkgname;
my $h = {};
$dependencies->{$pkgname} = $h;
$plist->depwalk($h);
@ -438,13 +438,12 @@ sub get_plist
if (defined $opt_d) {
my $location = "$opt_d/$pkgname.tgz";
my $true_package = OpenBSD::PackageLocator->find($pkgname);
my $true_package = OpenBSD::PackageLocator->find($location);
if ($true_package) {
my $dir = $true_package->info();
# twice read
my $dir = $true_package->info;
if (-d $dir) {
my $plist = OpenBSD::PackingList->fromfile($dir.CONTENTS);
$true_package->close();
$true_package->close;
rmtree($dir);
return $plist;
}
@ -474,7 +473,7 @@ sub handle_dependency
delete $dependencies->{$pkgname};
for my $p (keys %$dependencies) {
if ($dependencies->{$p}->{$pkgname}) {
$dependencies->{$p}->{$plist->pkgname()} =
$dependencies->{$p}->{$plist->pkgname} =
$dependencies->{$p}->{$pkgname};
delete $dependencies->{$p}->{$pkgname};
}
@ -484,7 +483,7 @@ sub handle_dependency
register_dependencies($plist);
OpenBSD::SharedLibs::add_libs_from_plist($plist);
return $plist->pkgname();
return $plist->pkgname;
}
sub report_lib_issue