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