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

(-)a/C4/Installer/PerlModules.pm (-2 / +1 lines)
Lines 84-90 sub version_info { Link Here
84
        for (sort keys(%{$PERL_DEPS})) {
84
        for (sort keys(%{$PERL_DEPS})) {
85
            my $pkg = $_;  #  $_ holds the string
85
            my $pkg = $_;  #  $_ holds the string
86
            eval "require $pkg";
86
            eval "require $pkg";
87
            my $pkg_version =  $params{'module'} &&  $params{'module'}->can("VERSION") ? $params{'module'}->VERSION : 0;
87
            my $pkg_version =  $pkg &&  $pkg->can("VERSION") ? $pkg->VERSION : 0;
88
            my $min_version = $PERL_DEPS->{$_}->{'min_ver'} // 0;
88
            my $min_version = $PERL_DEPS->{$_}->{'min_ver'} // 0;
89
            if ($@) {
89
            if ($@) {
90
                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'}}});
91
- 

Return to bug 17986