View | Details | Raw Unified | Return to bug 20103
Collapse All | Expand All

(-)a/C4/Installer/PerlModules.pm (-3 / +4 lines)
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
- 

Return to bug 20103