|
Lines 41-48
push @pm, 'current_pm' if $installed || $all;
Link Here
|
| 41 |
|
41 |
|
| 42 |
print color 'bold white' if $color; |
42 |
print color 'bold white' if $color; |
| 43 |
print" |
43 |
print" |
| 44 |
Module Name Current Version Required Version Module Required |
44 |
Installed Required Module is |
| 45 |
-------------------------------------------------------------------------------------------------------------------------- |
45 |
Module Name Version Version Required |
|
|
46 |
-------------------------------------------------------------------------------------------- |
| 46 |
"; |
47 |
"; |
| 47 |
|
48 |
|
| 48 |
my $count = 0; |
49 |
my $count = 0; |
|
Lines 60-67
foreach my $type (@pm) {
Link Here
|
| 60 |
my $current_version = ($color ? $_->{$pm}->{'cur_ver'} : |
61 |
my $current_version = ($color ? $_->{$pm}->{'cur_ver'} : |
| 61 |
$type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'}); |
62 |
$type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'}); |
| 62 |
format = |
63 |
format = |
| 63 |
@<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<<<< @<<<<< |
64 |
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<< |
| 64 |
$pm, $current_version, $_->{$pm}->{'min_ver'}, $required |
65 |
$pm, $current_version, $_->{$pm}->{'min_ver'}, $required |
| 65 |
. |
66 |
. |
| 66 |
write; |
67 |
write; |
| 67 |
} |
68 |
} |
|
Lines 69-76
write;
Link Here
|
| 69 |
} |
70 |
} |
| 70 |
print color 'bold white' if $color; |
71 |
print color 'bold white' if $color; |
| 71 |
my $footer = " |
72 |
my $footer = " |
| 72 |
-------------------------------------------------------------------------------------------------------------------------- |
73 |
-------------------------------------------------------------------------------------------- |
| 73 |
Total modules reported: $count "; |
74 |
Total modules reported: $count "; |
| 74 |
|
75 |
|
| 75 |
if ($color) { |
76 |
if ($color) { |
| 76 |
$footer .= "\n\n"; |
77 |
$footer .= "\n\n"; |
| 77 |
- |
|
|