Lines 54-62
sub versions_info {
Link Here
|
54 |
foreach my $phase ($self->prereqs->phases) { |
54 |
foreach my $phase ($self->prereqs->phases) { |
55 |
foreach my $type ($self->prereqs->types_in($phase)) { |
55 |
foreach my $type ($self->prereqs->types_in($phase)) { |
56 |
my $reqs = $self->prereqs->requirements_for($phase, $type); |
56 |
my $reqs = $self->prereqs->requirements_for($phase, $type); |
57 |
foreach my $module ($reqs->required_modules) { |
57 |
foreach my $module (sort $reqs->required_modules) { |
58 |
no warnings; # perl throws warns for invalid $VERSION numbers which some modules use |
|
|
59 |
|
60 |
my $module_infos = { |
58 |
my $module_infos = { |
61 |
cur_ver => 0, |
59 |
cur_ver => 0, |
62 |
required => $type eq 'requires', |
60 |
required => $type eq 'requires', |
Lines 76-82
sub versions_info {
Link Here
|
76 |
my $attr; |
74 |
my $attr; |
77 |
|
75 |
|
78 |
$Readonly::XS::MAGIC_COOKIE="Do NOT use or require Readonly::XS unless you're me."; |
76 |
$Readonly::XS::MAGIC_COOKIE="Do NOT use or require Readonly::XS unless you're me."; |
79 |
eval "require $module"; |
77 |
{ |
|
|
78 |
# ignore warnings from noisy modules |
79 |
local $SIG{__WARN__} = sub {}; |
80 |
eval "require $module"; |
81 |
} |
80 |
if ($@) { |
82 |
if ($@) { |
81 |
$attr = 'missing_pm'; |
83 |
$attr = 'missing_pm'; |
82 |
} else { |
84 |
} else { |
83 |
- |
|
|