|
Lines 68-74
sub version_info {
Link Here
|
| 68 |
my %params = @_; |
68 |
my %params = @_; |
| 69 |
if ($params{'module'}) { |
69 |
if ($params{'module'}) { |
| 70 |
return -1 unless grep {m/$params{'module'}/} keys(%$PERL_DEPS); |
70 |
return -1 unless grep {m/$params{'module'}/} keys(%$PERL_DEPS); |
| 71 |
eval "require $params{'module'}"; |
71 |
eval {require $params{'module'}}; |
| 72 |
if ($@) { |
72 |
if ($@) { |
| 73 |
return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; |
73 |
return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; |
| 74 |
} |
74 |
} |
|
Lines 82-88
sub version_info {
Link Here
|
| 82 |
else { |
82 |
else { |
| 83 |
for (sort keys(%{$PERL_DEPS})) { |
83 |
for (sort keys(%{$PERL_DEPS})) { |
| 84 |
my $pkg = $_; # $_ holds the string |
84 |
my $pkg = $_; # $_ holds the string |
| 85 |
eval "require $pkg"; |
85 |
eval {require $pkg}; |
| 86 |
if ($@) { |
86 |
if ($@) { |
| 87 |
push (@{$self->{'missing_pm'}}, {$_ => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); |
87 |
push (@{$self->{'missing_pm'}}, {$_ => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); |
| 88 |
} |
88 |
} |
| 89 |
- |
|
|