diff options
author | Steve Price <steve@FreeBSD.org> | 2003-02-24 16:07:07 +0000 |
---|---|---|
committer | Steve Price <steve@FreeBSD.org> | 2003-02-24 16:07:07 +0000 |
commit | c2e4cc1ce96f43a800114c774c0726c104a10c28 (patch) | |
tree | 565fa763c35614f542f5a7c415fc1028f0baf720 /Tools/make_index | |
parent | Remove obsolete development version of rdesktop. (diff) |
Do a better job of stating which port we had problems with while
mapping directories to package names.
Notes
Notes:
svn path=/head/; revision=76403
Diffstat (limited to '')
-rw-r--r-- | Tools/make_index | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Tools/make_index b/Tools/make_index index 3708e94928db..034f574b3897 100644 --- a/Tools/make_index +++ b/Tools/make_index @@ -13,7 +13,7 @@ require 5.002; # Helper function to map a directory to a pkgname. sub by_path { - my $name = shift; + my ($name, $port) = @_; # If a direct mapping exists, then use it. return $by_path{$name} if (defined $by_path{$name}); @@ -28,7 +28,7 @@ sub by_path { $name = join('/', @p); return $by_path{$name} if (defined $by_path{$name}); - print STDERR "make_index: no entry for: $name\n"; + print STDERR "make_index: $port: no entry for $name\n"; return undef; } @@ -101,12 +101,12 @@ foreach $name (keys %index) { my $pkg = $index{$name}; # first the build dependencies if (@{$pkg->{bdep}}) { - my @bdep = map { by_path($_) } @{$pkg->{bdep}}; + my @bdep = map { by_path($_, $name) } @{$pkg->{bdep}}; $pkg->{bdep} = \@bdep; } # and now the run dependencies if (@{$pkg->{rdep}}) { - my @rdep = map { by_path($_) } @{$pkg->{rdep}}; + my @rdep = map { by_path($_, $name) } @{$pkg->{rdep}}; $pkg->{rdep} = \@rdep; } } |