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

(-)a/C4/Installer/PerlModules.pm (+3 lines)
Lines 21-31 sub new { Link Here
21
21
22
sub prereqs {
22
sub prereqs {
23
    my $self = shift;
23
    my $self = shift;
24
    my @phases;
24
25
25
    unless (defined $self->{prereqs}) {
26
    unless (defined $self->{prereqs}) {
26
        my $filename = $INC{'C4/Installer/PerlModules.pm'};
27
        my $filename = $INC{'C4/Installer/PerlModules.pm'};
27
        my $path = dirname(dirname(dirname($filename)));
28
        my $path = dirname(dirname(dirname($filename)));
28
        $self->{prereqs} = Module::CPANfile->load("$path/cpanfile")->prereqs;
29
        $self->{prereqs} = Module::CPANfile->load("$path/cpanfile")->prereqs;
30
        @phases =  $self->{prereqs}->phases;
29
    }
31
    }
30
32
31
    return $self->{prereqs};
33
    return $self->{prereqs};
Lines 58-63 sub versions_info { Link Here
58
                my $module_infos = {
60
                my $module_infos = {
59
                    cur_ver  => 0,
61
                    cur_ver  => 0,
60
                    required => $type eq 'requires',
62
                    required => $type eq 'requires',
63
                    phase => $phase
61
                };
64
                };
62
65
63
                my $vers = $reqs->structured_requirements_for_module($module);
66
                my $vers = $reqs->structured_requirements_for_module($module);
(-)a/about.pl (-2 / +6 lines)
Lines 661-666 foreach my $pm_type(@pm_types) { Link Here
661
    my $modules = $perl_modules->get_attr($pm_type);
661
    my $modules = $perl_modules->get_attr($pm_type);
662
    foreach (@$modules) {
662
    foreach (@$modules) {
663
        my ($module, $stats) = each %$_;
663
        my ($module, $stats) = each %$_;
664
665
        # skip 'development' modules from displaying, unless its a dev install
666
        unless  ( $ENV{DEV_INSTALL} ) {
667
              next if  $stats->{'phase'} eq 'develop' ;
668
        }
669
664
        push(
670
        push(
665
            @components,
671
            @components,
666
            {
672
            {
Lines 697-703 if (scalar(@$row) > 0) { Link Here
697
    # Pushing the last line
703
    # Pushing the last line
698
    push (@$table, {row => $row});
704
    push (@$table, {row => $row});
699
}
705
}
700
## ## $table
701
706
702
$template->param( table => $table );
707
$template->param( table => $table );
703
708
704
- 

Return to bug 31865