Lines 68-77
sub version_info {
Link Here
|
68 |
if ($params{'module'}) { |
68 |
if ($params{'module'}) { |
69 |
return -1 unless grep {m/$params{'module'}/} keys(%$PERL_DEPS); |
69 |
return -1 unless grep {m/$params{'module'}/} keys(%$PERL_DEPS); |
70 |
eval "require $params{'module'}"; |
70 |
eval "require $params{'module'}"; |
|
|
71 |
my $pkg_version = $params{'module'} && $params{'module'}->can("VERSION") ? $params{'module'}->VERSION : 0; |
72 |
my $min_version = $PERL_DEPS->{$params{'module'}}->{'min_ver'} // 0; |
71 |
if ($@) { |
73 |
if ($@) { |
72 |
return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; |
74 |
return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; |
73 |
} |
75 |
} |
74 |
elsif ($params{'module'}->VERSION lt $PERL_DEPS->{$params{'module'}}->{'min_ver'}) { |
76 |
elsif (version->parse("$pkg_version") < version->parse("$min_version")) { |
75 |
return {$params{'module'} => {cur_ver => $params{'module'}->VERSION, min_ver => $PERL_DEPS->{$params{'module'}}->{'min_ver'}, upgrade => 1, required => $PERL_DEPS->{$params{'module'}}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; |
77 |
return {$params{'module'} => {cur_ver => $params{'module'}->VERSION, min_ver => $PERL_DEPS->{$params{'module'}}->{'min_ver'}, upgrade => 1, required => $PERL_DEPS->{$params{'module'}}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; |
76 |
} |
78 |
} |
77 |
else { |
79 |
else { |
Lines 82-91
sub version_info {
Link Here
|
82 |
for (sort keys(%{$PERL_DEPS})) { |
84 |
for (sort keys(%{$PERL_DEPS})) { |
83 |
my $pkg = $_; # $_ holds the string |
85 |
my $pkg = $_; # $_ holds the string |
84 |
eval "require $pkg"; |
86 |
eval "require $pkg"; |
|
|
87 |
my $pkg_version = $params{'module'} && $params{'module'}->can("VERSION") ? $params{'module'}->VERSION : 0; |
88 |
my $min_version = $PERL_DEPS->{$_}->{'min_ver'} // 0; |
85 |
if ($@) { |
89 |
if ($@) { |
86 |
push (@{$self->{'missing_pm'}}, {$_ => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); |
90 |
push (@{$self->{'missing_pm'}}, {$_ => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); |
87 |
} |
91 |
} |
88 |
elsif ($pkg->VERSION lt $PERL_DEPS->{$_}->{'min_ver'}) { |
92 |
elsif (version->parse("$pkg_version") < version->parse("$min_version")) { |
89 |
push (@{$self->{'upgrade_pm'}}, {$_ => {cur_ver => $pkg->VERSION, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); |
93 |
push (@{$self->{'upgrade_pm'}}, {$_ => {cur_ver => $pkg->VERSION, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); |
90 |
} |
94 |
} |
91 |
else { |
95 |
else { |
92 |
- |
|
|