|
@@ -39,7 +39,7 @@ while ( ( my $symbol, my $info ) = each %$symbols ) {
|
39
|
39
|
$problems->{$_}->{nonexistent}->{$symbol} = 1 foreach @requires;
|
40
|
40
|
} elsif ( @provides > 1 ) {
|
41
|
41
|
# Symbol defined in multiple objects
|
42
|
|
- $problems->{$_}->{multiples}->{$symbol} = 1 foreach @requires;
|
|
42
|
+ $problems->{$_}->{multiples}->{$symbol} = 1 foreach @provides;
|
43
|
43
|
}
|
44
|
44
|
if ( @requires == 0 ) {
|
45
|
45
|
# Symbol not required
|