|
Lines 1222-1233
Link Here
|
| 1222 |
if ($tmp =~ /(LIB_|BUILD_|RUN_|FETCH_)?DEPENDS/) { |
1222 |
if ($tmp =~ /(LIB_|BUILD_|RUN_|FETCH_)?DEPENDS/) { |
| 1223 |
&checkearlier($file, $tmp, @varnames); |
1223 |
&checkearlier($file, $tmp, @varnames); |
| 1224 |
|
1224 |
|
|
|
1225 |
my %seen_depends; |
| 1226 |
|
| 1225 |
if (!defined $ENV{'PORTSDIR'}) { |
1227 |
if (!defined $ENV{'PORTSDIR'}) { |
| 1226 |
$ENV{'PORTSDIR'} = $portsdir; |
1228 |
$ENV{'PORTSDIR'} = $portsdir; |
| 1227 |
} |
1229 |
} |
| 1228 |
foreach my $i (grep(/^[A-Z_]*DEPENDS[?+]?=/, split(/\n/, $tmp))) { |
1230 |
foreach my $i (grep(/^[A-Z_]*DEPENDS[?+]?=/, split(/\n/, $tmp))) { |
| 1229 |
$i =~ s/^([A-Z_]*DEPENDS)[?+]?=[ \t]*//; |
1231 |
$i =~ s/^([A-Z_]*DEPENDS)[?+]?=[ \t]*//; |
| 1230 |
$j = $1; |
1232 |
$j = $1; |
|
|
1233 |
$seen_depends{$j}++; |
| 1234 |
if ($j ne 'DEPENDS' && |
| 1235 |
$i =~ /^\${([A-Z_]+DEPENDS)}\s*$/ && |
| 1236 |
$seen_depends{$1} && |
| 1237 |
$j ne $1) |
| 1238 |
{ |
| 1239 |
print "OK: $j refers to $1, skipping checks.\n" |
| 1240 |
if ($verbose); |
| 1241 |
next; |
| 1242 |
} |
| 1231 |
print "OK: checking ports listed in $j.\n" |
1243 |
print "OK: checking ports listed in $j.\n" |
| 1232 |
if ($verbose); |
1244 |
if ($verbose); |
| 1233 |
foreach my $k (split(/\s+/, $i)) { |
1245 |
foreach my $k (split(/\s+/, $i)) { |