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

(-)a/C4/Installer/PerlModules.pm (-2 / +1 lines)
Lines 69-75 sub version_info { Link Here
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
        if ($@) {
71
        if ($@) {
72
            return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}};
72
            return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$params{'module'}}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$params{'module'}}->{'required'}, usage => $PERL_DEPS->{$params{'module'}}->{'usage'}}};
73
        }
73
        }
74
        elsif ($params{'module'}->VERSION lt $PERL_DEPS->{$params{'module'}}->{'min_ver'}) {
74
        elsif ($params{'module'}->VERSION lt $PERL_DEPS->{$params{'module'}}->{'min_ver'}) {
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'}}};
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'}}};
76
- 

Return to bug 17882