|
Lines 504-517
Link Here
|
| 504 |
sub parse_make |
504 |
sub parse_make |
| 505 |
{ |
505 |
{ |
| 506 |
my $file_name = shift(); |
506 |
my $file_name = shift(); |
| 507 |
my $lines = read_file($file_name); |
507 |
my $use_var = `. $file_name; echo -n \$USE`; |
| 508 |
my @site_uf_list; |
508 |
my @site_uf_list; |
| 509 |
if ($lines =~ m/^\s*USE[\s\n]*=[\s\n]*"([^"]*)"/ms) |
509 |
@site_uf_list = split(/\s+/, $use_var); |
| 510 |
{ |
|
|
| 511 |
my $use_var = $1; |
| 512 |
$use_var =~ s/[\r\n]/ /g; |
| 513 |
@site_uf_list = split(' ', $use_var); |
| 514 |
} |
| 515 |
#print ("Make: \n" . join (" ", @site_uf_list) . "\n"); |
510 |
#print ("Make: \n" . join (" ", @site_uf_list) . "\n"); |
| 516 |
return \@site_uf_list; |
511 |
return \@site_uf_list; |
| 517 |
} |
512 |
} |
