gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 6915 - [SIGNED-OFF] reduce module name truncation problem in koha_perl_deps.pl 

Widen module name allowance in the format statement, adjust other
columns to be generous but not-so-much as before, modify report
header and footer print statements to align and clarify. Very very
long module names or version numbers are still subject to possible
truncation.

Signed-off-by: Magnus Enger <magnus@enger.priv.no>

Sign off comment: With this patch module names are not truncated, which is an
improvement. Lines are still too long to fit an 80 column display, and so they
wrap around, but tht is a minor annoyance compared to the truncated names.

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
(cherry picked from commit e5e5e3155e)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
This commit is contained in:
Greg Barniskis 2011-09-26 12:07:20 -05:00 committed by Chris Nighswonger
parent 8558f011e4
commit af65c1402c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
koha_perl_deps.pl
View File

@ -41,8 +41,9 @@ push @pm, 'current_pm' if $installed || $all;
print color 'bold white' if $color;
print"
Module Name Current Version Required Version Module Required
--------------------------------------------------------------------------------------------------------------------------
Installed Required Module is
Module Name Version Version Required
--------------------------------------------------------------------------------------------
";
my $count = 0;
@ -60,8 +61,8 @@ foreach my $type (@pm) {
my $current_version = ($color ? $_->{$pm}->{'cur_ver'} :
$type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'});
format =
@<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<<<< @<<<<<
$pm, $current_version, $_->{$pm}->{'min_ver'}, $required
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<<
$pm, $current_version, $_->{$pm}->{'min_ver'}, $required
.
write;
}
@ -69,8 +70,8 @@ write;
}
print color 'bold white' if $color;
my $footer = "
--------------------------------------------------------------------------------------------------------------------------
Total modules reported: $count ";
--------------------------------------------------------------------------------------------
Total modules reported: $count ";
if ($color) {
$footer .= "\n\n";