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