Lines 81-96
sub version_info {
Link Here
|
81 |
eval "require $module"; |
81 |
eval "require $module"; |
82 |
my $pkg_version = $module->can("VERSION") ? $module->VERSION : 0; |
82 |
my $pkg_version = $module->can("VERSION") ? $module->VERSION : 0; |
83 |
my $min_version = $PERL_DEPS->{$module}->{'min_ver'} // 0; |
83 |
my $min_version = $PERL_DEPS->{$module}->{'min_ver'} // 0; |
|
|
84 |
# Readonly.pm tells a whitelie, and so do we. |
85 |
if ($module eq 'Readonly::XS' && !($] < 5.008)) { $pkg_version = $min_version; $@=q{}; } |
84 |
|
86 |
|
85 |
my ( $cur_ver, $upgrade, $status ); |
87 |
my ( $cur_ver, $upgrade, $status ); |
86 |
if ($@) { |
88 |
if ($@) { |
87 |
( $cur_ver, $upgrade, $status ) = ( 0, 0, 'missing' ); |
89 |
( $cur_ver, $upgrade, $status ) = ( 0, 0, 'missing' ); |
88 |
} |
90 |
} |
89 |
elsif ( version->parse("$pkg_version") < version->parse("$min_version") ) { |
91 |
elsif ( version->parse("$pkg_version") < version->parse("$min_version") ) { |
90 |
( $cur_ver, $upgrade, $status ) = ( $module->VERSION, 1, 'upgrade' ); |
92 |
( $cur_ver, $upgrade, $status ) = ( $pkg_version, 1, 'upgrade' ); |
91 |
} |
93 |
} |
92 |
else { |
94 |
else { |
93 |
( $cur_ver, $upgrade, $status ) = ( $module->VERSION, 0, 'current' ); |
95 |
( $cur_ver, $upgrade, $status ) = ( $pkg_version, 0, 'current' ); |
94 |
} |
96 |
} |
95 |
|
97 |
|
96 |
return { |
98 |
return { |
97 |
- |
|
|