|
Lines 322-328
sub FindDeps {
Link Here
|
| 322 |
close(YAML); |
322 |
close(YAML); |
| 323 |
if ( check_yaml(@yaml) ) { |
323 |
if ( check_yaml(@yaml) ) { |
| 324 |
my $arr = YAML::Load(@yaml); |
324 |
my $arr = YAML::Load(@yaml); |
| 325 |
foreach my $type qw(configure_requires requires build_requires recommends) { |
325 |
foreach my $type (qw(configure_requires requires build_requires recommends)) { |
| 326 |
if ( my $ar_type = $arr->{$type} ) { |
326 |
if ( my $ar_type = $arr->{$type} ) { |
| 327 |
foreach my $module ( keys %{$ar_type} ) { |
327 |
foreach my $module ( keys %{$ar_type} ) { |
| 328 |
next if ( $module eq "" ); |
328 |
next if ( $module eq "" ); |
|
Lines 384-390
sub FindDeps {
Link Here
|
| 384 |
my (%p) = (); |
384 |
my (%p) = (); |
| 385 |
my $fh; |
385 |
my $fh; |
| 386 |
|
386 |
|
| 387 |
foreach my $type qw(requires configure_requires build_requires) { |
387 |
foreach my $type (qw(requires configure_requires build_requires)) { |
| 388 |
if ( $fh = FileHandle->new("<$makefile\0") ) { |
388 |
if ( $fh = FileHandle->new("<$makefile\0") ) { |
| 389 |
local ($/) = ""; |
389 |
local ($/) = ""; |
| 390 |
while (<$fh>) { |
390 |
while (<$fh>) { |
| 391 |
- |
|
|
