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

(-)a/C4/Installer/PerlModules.pm (-5 / +6 lines)
Lines 54-62 sub versions_info { Link Here
54
    foreach my $phase ($self->prereqs->phases) {
54
    foreach my $phase ($self->prereqs->phases) {
55
        foreach my $type ($self->prereqs->types_in($phase)) {
55
        foreach my $type ($self->prereqs->types_in($phase)) {
56
            my $reqs = $self->prereqs->requirements_for($phase, $type);
56
            my $reqs = $self->prereqs->requirements_for($phase, $type);
57
            foreach my $module ($reqs->required_modules) {
57
            foreach my $module (sort $reqs->required_modules) {
58
                no warnings;  # perl throws warns for invalid $VERSION numbers which some modules use
59
60
                my $module_infos = {
58
                my $module_infos = {
61
                    cur_ver  => 0,
59
                    cur_ver  => 0,
62
                    required => $type eq 'requires',
60
                    required => $type eq 'requires',
Lines 76-82 sub versions_info { Link Here
76
                my $attr;
74
                my $attr;
77
75
78
                $Readonly::XS::MAGIC_COOKIE="Do NOT use or require Readonly::XS unless you're me.";
76
                $Readonly::XS::MAGIC_COOKIE="Do NOT use or require Readonly::XS unless you're me.";
79
                eval "require $module";
77
                {
78
                    # ignore warnings from noisy modules
79
                    local $SIG{__WARN__} = sub {};
80
                    eval "require $module";
81
                }
80
                if ($@) {
82
                if ($@) {
81
                    $attr = 'missing_pm';
83
                    $attr = 'missing_pm';
82
                } else {
84
                } else {
83
- 

Return to bug 30731